#lang racket ;((lambda () (list 'John (list 'read (list 'the (list ((lambda () 'id)) 'book)))))) ;(define damn (lambda () 'id)) (define damn (lambda () (call/cc (lambda (k) (raise (list "Something's bad" k)))))) (call-with-exception-handler (lambda (e) (print (first e)) ((second e) 'id)) ; this is the exception handler (lambda () (list (list 'the (list (damn) 'man)) (list 'read (list 'the (list (damn) 'book))))))