(define call/cc call-with-current-continuation)

(define (infinite-loop proc)
  (proc)
  (infinite-loop proc))

(define (count-to-n n)
  (call/cc (lambda (stop)
             (let ((count 0))
               (infinite-loop (lambda ()
                                (if (> count n)
                                    (stop)
                                    (begin (display count)
                                           (set! count (+ 1 count))
                                           ))))))))