let
echo _ r w =
Reader
.transfer r (
Writer
.pipe w)