let file_lines fn = with_file_in_bin fn channel_lines