read sequence of chars from a channel

sequence.ml

@@ -192,6 +192,12 @@ module String =
       let b = Buffer.create 64 in
       iter (fun c -> Buffer.add_char b c) seq;
       Buffer.contents b
+
+    let of_in ic =
+      from_iter (fun k ->
+        try while true do
+          let c = input_char ic in k c
+        done with End_of_file -> ())
   end
 
 module Int =

sequence.mli

@@ -144,6 +144,8 @@ module String :
   sig
     val to_seq : string -> char t
     val of_seq : char t -> string
+
+    val of_in : in_channel -> char t
   end
 
 (** Sequences of ints *)