and baseType = VoidType | CharType | ShortType | IntType | DoubleType
| FloatType | LongType | LongLongType | BoolType
+| SizeType | SSizeType | PtrDiffType
and structUnion = Struct | Union
| LongType -> "long "
| LongLongType -> "long long "
| BoolType -> "bool "
+ | SizeType -> "size_t "
+ | SSizeType -> "ssize_t "
+ | PtrDiffType -> "ptrdiff_t "
+
and structUnion = function
Struct -> "struct "