#lang racket ;(define damn (lambda () 'id)) (define damn (lambda () (call/cc (lambda (k) ; (k 'id) (print "Something's bad") (k 'id) )))) (list (list 'the (list (damn) 'man)) (list 'read (list 'the (list (damn) 'book))))