Nombres/bin/nbr.ml

let rec parse_and_print () =
  print_string "Entier (Ou [Q]uitter [H]elp) ? > ";
  flush stdout;
  input_line stdin |> function
  | "q" | "Q" -> ()
  | "h" | "?" | "H" ->
      print_endline
        "Je n'accepte que des entiers positifs. Et pas trop grands…\n\
         'q' ou 'Q' pour quitter.";
      flush stdout;
      parse_and_print ()
  | str ->
      str |> int_of_string
      |> (fun i ->
           match i with
           | i -> i |> Nombres.nombre |> print_endline
           | exception _ -> ())
      |> parse_and_print

let () = parse_and_print ()