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

let rec input_caller () =
  let input = read_line() in
  your_function input ;
  input_caller() ;
;;

let () = input_caller()