While loop

[Mike Chen <mickey.chuen@gmail.com>]

Hi,

I am a caml rookie, and I need your help.

(* pp is a very simple function *)
# let pp list =
	let newList = ref [] in
	let i = ref 0 in
	let ele = ref (List.nth list !i) in
	while (!ele) != 5 do
		newList := List.append !newList [(!ele mod 3)];
		i := !i + 1;
	done;
	!newList;;
val pp : int list -> int list = <fun>

# pp [ 3; 4; 5];;

(* it seems it goes into a forever loop, but I expect it returns [ 0;
1]. What is wrong? *)

Thanks,
Mike