While

let i = ref 0
let () =
	while !i <= 5 do
		print_int !i;
		i := !i + 1
	done