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