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

let () = input_caller()