let
write w pipe_r =
Pipe
.iter pipe_r ~f:(
fun
item
->
Writer
.write_line w (item : item :> string)
)