; http://cap-lore.com/code/Scheme/try.html
(lambda (pb pe) (call/cc (lambda (p) (pb (lambda (ev) (p (pe ev)))))))

; Demostration
((fileVal "try") (lambda (e) (write "working") 'w)
     (lambda (t) (write (list "exception" t)) 'e))
     ; => "working"w
((fileVal "try") (lambda (e) (write "attempting") (e "peculiar")
         (write "don't get here!"))
     (lambda (t) (write (list "exception" t)) 'e))
     ; => "attempting"("exception" "peculiar")e