

(print (plus 2 3))
(define fff
  (prog t
    (setq i 1)
    (while (lessp i arg1)
      (prog t
        (print i)
        (setq i (plus i 1))
) ) ) )

(fff 10)

