let
hide_exn f x =
try
f x
with
exn
->
raise (
Hidden
exn)