let pp_print_struct_or_union ppf = function
    Struct -> pp_print_string ppf "struct"
  | Union -> pp_print_string ppf "union"