sig   val w_lst :     (('a -> 'b) -> 'a -> 'b) ->     ('c -> ('a -> 'b) -> 'a -> 'b) -> 'c list -> ('a -> 'b) -> 'a -> 'b   val w_crlf :     (Encoder.t ->      ([> `Partial of Bytes.t * int * int * (int -> 'a) ] as 'a)      Encoder.partial) ->     Encoder.t -> 'a Encoder.partial   val w_field :     [< `ResentBcc of MrMime_address.address list      | `ResentCc of MrMime_address.address list      | `ResentDate of MrMime_date.date      | `ResentFrom of MrMime_address.mailbox list      | `ResentMessageID of MrMime_msgID.msg_id      | `ResentReplyTo of MrMime_address.address list      | `ResentSender of MrMime_address.mailbox      | `ResentTo of MrMime_address.address list ] ->     (Encoder.t ->      ([> `Partial of Bytes.t * int * int * (int -> 'a) ] as 'a)      Encoder.partial Encoder.partial Encoder.partial Encoder.partial) ->     Encoder.t ->     'a Encoder.partial Encoder.partial Encoder.partial Encoder.partial   val w_resent :     MrMime_resent.resent ->     (Encoder.t ->      ([> `Partial of Bytes.t * int * int * (int -> 'a) ] as 'a)      Encoder.partial Encoder.partial Encoder.partial Encoder.partial) ->     Encoder.t ->     'a Encoder.partial Encoder.partial Encoder.partial Encoder.partial end