let sender _ r w =
  let stdin = Lazy.force Reader.stdin in
  let stdout = Lazy.force Writer.stdout in
  (* We transfer stdin over our TCP connection. *)
  don't_wait_for (Reader.transfer stdin (Writer.pipe w));
  (* And, we simultaneously transfer the inbound TPC traffic to to stdout. *)
  don't_wait_for (Reader.transfer r (Writer.pipe stdout));
  never ()