Prog Caml : Ecrire la fonction print_bool

Pour afficher la valeur de retour d'une fonction qui renvoie un booléen, on aimerait bien disposer d'une fonction permettant d'afficher un booléen, c'est-à-dire une fonction prenant en paramètre un booléen et qui affiche "true" ou "false" selon la valeur de ce booléen. La fonction print_bool n'est pas une fonction prédéfinie, car elle n'est pas d'un usage très fréquent. Heureusement, on peut la définir soi-même facilement.

Ecrivez une fonction print_bool à l'aide d'un test if. Quel est le type de cette fonction ?

Code à compléter Caml

let print_bool b =
(*à compléter *)
;;

print_bool (read_line()="true");;