+++ /dev/null
-#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))))