syr.ml

(* Compile with '-rectypes' option *)

let delta x =
	if x mod 2 = 0 then x / 2
	else 3*x + 1 in

let syr s x =
	Printf.printf "%d " x;
	if x <= 1 then ()
	else s s (delta x) in

syr syr 420;;