let cat_file filename =
  let stdout = Lazy.force Writer.stdout in
  Reader.with_file filename
    ~f:(fun file -> Reader.transfer file (Writer.pipe stdout))