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