RosettaCodeData/Task/Input-loop/OCaml/input-loop-3.ocaml

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))