Prog Caml : Ecrire la fonction passe_hauteur

Condensez le code suivant à l'aide d'une fonction nommée passe_hauteur, avec l'argument limite :

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

let hauteur = read_int() in
if hauteur > 10
  then print_string "passe"
  else print_string "bloque";

let hauteur_bis = read_int() in
if hauteur_bis > 18
  then print_string "passe"
  else print_string "bloque";

let hauteur_ter = read_int() in
if hauteur_ter > 7
  then print_string "passe"
  else print_string "bloque";