let forever_ =
  let time_stamp c_or_s =
    Time.now () |>
      Time.to_string_trimmed |>
      fun f ->
      f Core.Zone.local |>
        fun format_me ->
        "[" ^ format_me ^ "]" ^ "[" ^ CLI.to_string c_or_s ^ "]" in
  fun (c_or_s : CLI.t) a_reader a_writer ->
  let forced_stdin = Lazy.force Reader.stdin in
  let rec server_side () =
    don't_wait_for (Pipe.iter_without_pushback (Reader.pipe a_reader) ~f:(fun str -> print_endline str));
    Reader.really_read_line (sec 0.0) forced_stdin >>= fun input ->
    match input with
    | Some a_string ->
       let total_output = (time_stamp c_or_s) ^ a_string in
       Stack.push chatroom total_output;
       Writer.write_line a_writer (Stack.top_exn chatroom);
       server_side ()
    | None ->
       print_endline "Nothing";
       server_side ()
  in
  server_side ()