(* la fonction de Conway *)

let rec suit x=
	if x=4 
	then failwith "fini, j'ai 4"
	else let reste=(x mod 2) in
	     if reste =1 
		  then (print_int x; print_string " "; suit (3*x+1))
	     else if reste=0 
	          then (print_int x; print_string " "; suit (x/2))
				 else failwith "grave erreur"
;;

suit 171 ;;

(* pour éviter l'affichage illisible on peut préfixer les print_int de saute_ligne() 
en ayant chargé le fichier newline.ml par un LoadObject 
L'automatisation consiste à définir slpi= saute_ligne();print_int ;;
il suffit alors de remplacer les print_int par des SauteLignePrintInt *)