module LF:sig..end
typechan =Pervasives.in_channel
val chan_of_in_channel : 'a -> 'a
val close_in : Pervasives.in_channel -> unit
val getchar : Pervasives.in_channel -> Kwcsv.c * Pervasives.in_channel
val getline : Pervasives.in_channel -> string option * Pervasives.in_channel
val foldlines : ('a -> string -> 'a) -> 'a -> Pervasives.in_channel -> 'a
val foldchars : ('a -> Kwcsv.c -> 'a) -> 'a -> Pervasives.in_channel -> 'a
val within : (Pervasives.in_channel -> 'a) -> string -> 'a