(define CreaCont (lambda (s ) (lambda (msg ) (cond ((eq msg (quote +)) (setq s (+ s 1 ))) ((quote =) s ) ) ) ) ); (define contatore (CreaCont 0)); (contatore =); (contatore +); (contatore =); #