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