let pp_print_storageclass ppf = function
    Extern -> pp_print_string ppf "extern"
  | Auto -> pp_print_string ppf "auto"
  | Static -> pp_print_string ppf "static"
  | Register -> pp_print_string ppf "register"
  | Typedef -> pp_print_string ppf "typedef"
  | Inline -> pp_print_string ppf "inline"