(define event (call/cc (lambda (x) x)))
(event (lambda (x) (display (string-append x "\n\tand having fun!"))))
(event "Talking Lisp...")