let fold_channel' ?(file="") ?(strict=true) f init cin = fold_stream' ~file ~strict f init (Stream.of_channel cin)