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