;; -*- Mode:Irken -*-

(include "lib/core.scm")

(define (thing n)
  (let/cc exit
      (for-range
	  i 1000
	  (printn i)
	  (if (= i n)
	      (exit i))
	  )
    1001))

(define (test)
  (printn "before")
  (printn (thing 20))
  (printn "after"))

(test)