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

6 lines
113 B
Plaintext

let rec read_lines ic =
try let line = input_line ic in
line :: read_lines ic
with End_of_file ->
[]