let rec input_all_lines acc chan = try input_all_lines ((input_line chan)::acc) chan with End_of_file -> acc