Sourcetype src = [ | `Manual| `String of string
] Sourcetype decode = [ | `Await| `Copy of int * int| `Insert of string| `End| `Malformed of string
] Sourceval of_seq :
string Seq.t ->
[ `Header of int * int | `Copy of int * int | `Insert of string ] Seq.t