Data update

Task/Input-loop/OCaml/input-loop-3.ml

@@ -0,0 +1,10 @@
+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