Prog Caml : Ecrire affiche_entiers avec un while

Le code précédent montre qu'on effectue un travail équivalent à celui d'une boucle for à l'aide d'une boucle while. Ecrivez donc une fonction nommée affiche_entiers qui prend en paramètre deux entiers nommés debut et fin, et qui affiche à l'aide d'une boucle while tous les entier compris entre ces deux valeurs (incluses). Les entiers doivent être séparés par des espaces.

Remarque : avec une boucle for, si debut est strictement supérieur à fin, le corps de la boucle n'est pas exécuté. Il faut donc que la fonction affiche_entiers n'affiche rien du tout dans un tel cas.

Code à compléter Caml

let read_int() = Scanf.scanf " %d" (fun x -> x);;

let affiche_entiers debut fin =
(*à compléter*)
  in

let a = read_int () in
affiche_entiers a (read_int());