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