let pp_print_typequal ppf = function
    Const -> pp_print_string ppf "const"
  | Volatile -> pp_print_string ppf "volatile"