let echo _ r w = Reader.read_line r >>| function | `Eof -> print_endline "error" | `Ok s -> Writer.write_line w s