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