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