(handle-exceptions exn 
	    (cond
	     ((eq? exn 'one) 1)
	     (else (abort exn)))
  (case (random 3)
   [(0) 'zero]
   [(1) (abort 'one)]
   [else (abort "Something else")]))
;=> 'zero, 1, or (abort "Something else")