(define (step)
  (call-with-current-continuation
   (lambda (c)
     (set! step c)
     c)))

(step)