testaccount10

Your example looks great! Now i want

  (defmacro print-loop (line-start line-inc strings)
    (let ((i line-start))
    `(main
      ,(mapcar (lambda (x) `(linenumber ,(setq line-start (+ line-start line-inc)) (print ,x))) strings)
      (goto line-start))))