The Biocaml Library : Biocaml_transform.on_input

let on_input t ~f =

 { t with feed = fun x -> t.feed (f x) }