(print 1)

(: counter 0)
(while (< counter 100) (print counter) (: counter (+ 1 counter)))