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 ()