(define creacont1 (lambda (s) (lambda (b) (lambda (msg) (cond ((eq msg (quote +)) (setq s (+ s 1 ))) (true s ) ) ) ) )); (define creacont2 (creacont1 7) ); (define cont (creacont2 5) ); creacont2; cont; (cont (quote +)); cont; creacont2; #