module State : sig ... endmodule Content : sig ... endval create : unit ‑> tmodule Result : sig ... endinclude Result.Stdval return : ?new_state:State.t ‑> Email_message__.Email_grammar.token list ‑> Result.tval return_eof : Result.tval return_error : string ‑> Result.tmodule Error : sig ... end