(call-with-current-continuation (lambda (k) (with-exception-handler (lambda (ex) (display ex) (newline) (k 'exception)) (lambda () ;eval here))))