functor (Portaline : PF) -> sig val fold : ?eol:Kwcsv.eoltype -> ?q:string -> ?comma:string -> ?warn:(int -> unit) -> ('a -> int -> string list -> 'a) -> 'a -> Pervasives.in_channel -> 'a end