gistfile1.txt

let i = Reader.open_file "each.pi";;
let o = Writer.open_file "each.pi.out";;

o >>= (fun o -> i >>= (fun i -> Reader.read_one_chunk_at_a_time i ~handle_chunk:(fun
str ~pos ~len ->
printf "Pos: %i, Len: %i" pos len;
Bigstring.to_string str
|> String.filter ~f:(function '\n' | '\r' | ' ' -> false | _ -> true)
|> Bigstring.of_string
|> Writer.write_bigstring o;
return `Continue)));;