Add Ada.Exceptions.Unchecked_Reraise_Occurrence and use it