(define (bar fuh)
  (display "ok\n")
  ((fuh)))

(define (foo)
  (call-with-current-continuation
   (lambda (cont)
     (bar (lambda ()
            (cont (foo)))))))