let lines =
  let text = ref [] in
  let rec loop () =
    let l = read_line () in
    text := l :: !text;
    loop ()
  in
  try
    loop ()
  with End_of_file ->
    !text

let print l =
  List.iter print_endline l

let () =
  print lines

This document was generated using caml2html