let invalid_argument_exn ?(where="pervasives") what = raise (Invalid_argument (fmt "[%S]: %s" where what))