let server_event (from_server, to_server) =
  Lwt_io.read_line from_server >>= fun line ->
  Lwt_io.printl line >>= fun () ->
  Lwt_io.flush Lwt_io.stdout

let console_event (from_server, to_server) =
  let%lwt line = Lwt_io.read_line Lwt_io.stdin in
  Lwt_io.printl line;%lwt
  Lwt_io.flush Lwt_io.stdout