let
error loc str =
Loc
.raise loc (
Failure
str)