damn2.rkt

   1 #lang racket
   2 ;(define damn (lambda () 'id))
   3 (define damn (lambda () (call/cc (lambda (k)
   4                                   ; (k 'id)
   5                                    (print "Something's bad")
   6                                    (k 'id)
   7                                    ))))
   8
   9 (list (list 'the (list (damn) 'man))
  10       (list 'read
  11             (list 'the (list (damn) 'book))))