(defvar i:uint32 0)

(loop while (< i 0xffff)
  (print i)
  (let i (+ i 1))
)