9 lines
165 B
Text
9 lines
165 B
Text
|
let read_lines f ic =
|
||
|
|
let rec loop () =
|
||
|
|
try f(input_line ic); loop()
|
||
|
|
with End_of_file -> ()
|
||
|
|
in
|
||
|
|
loop()
|
||
|
|
|
||
|
|
read_lines print_endline (open_in Sys.argv.(1))
|