character
character(int c)
#define character(v) ((((zzhack *)(&(v))))->zz_character[0])
#define character(v) ((((zzhack *)(&(v))))->zz_character[3])