let
parse_patt loc str =
Gram
.parse_string antiquot_patt loc str