(enum 10 xAA xBB)
(let gv tv)
(def prints s ()
  (if (vec s 0)
    (do
    (sys 2 (vec s 0))
    (prints (+ s 1)))))

(def add1 x () (+ x 1))
(def main () ()
  (do
  (set tv 5)
  (prints "string")
  (sys 1 (add1 xBB))))