Logging.init_pretty_writer stderr
  ~min_level:TRACE;

Lwt_main.run
  (Server.run {
      port = 6667;
      tcp_listen_backlog = 8
    })