let read r =
    Reader.lines r
    |> Pipe.map ~f:Line.of_string_unsafe