apparently the lessthan is an error
(define inrange
(lambda (low high)
(call/cc
(lambda (outer)
(if (lessthan low high)
(begin
(call/cc
(lambda (inner)
(let ((old fail)) (set! fail (lambda (x) (set! fail old) (inner))))
(outer low)))
(inrange (+ 1 low) high))
high)))))
