let fold_stream ?(strict=true) f init cstr =
    fold_stream' ~strict f init cstr