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