type t = Syntax of string
exception Error of t
let raise_syntax_error msg = raise (Error (Syntax msg))
let pp ppf = function
| Syntax why -> Format.fprintf ppf "syntax error: %s" why