RosettaCodeData/Task/Loops-While/OCaml/loops-while-1.ocaml

let n = ref 1024;;
while !n > 0 do
  Printf.printf "%d\n" !n;
  n := !n / 2
done;;