(include "lib/core.scm")
(include "lib/pair.scm")
(include "lib/string.scm")
(define (thing n)
(printn "howdy!") 5)
(define (go)
(let loop ((n 100))
(print n) (print-string " ")
(cond ((= n 0) 9)
((= n 50)
(call/cc (lambda (k) (dump "test.image" k)))
(loop (- n 1)))
(else (loop (- n 1))))))
;; invoke without an argument to dump the image,
;; with an argument to load it and run it.
(if (> sys.argc 1)
((load "test.image") 0)
(go))