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

(define inner (lambda (throw)
                (throw 'lol)
                (display "hey")))


(define (try whatdo whatdoerror)
  (define res (call-with-current-continuation
   (lambda (do-exit)
     (letrec ((inner whatdo))
       (inner do-exit)))))
  (display res))