8 lines
165 B
Text
8 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))
|