typedef union

{

char unknown;

polyrecord *sublist;

int value;

}varying;

typedef struct record

{

int tag;

varying secondfield;

int exponent;

struct record *nextterm;

}polyrecord, *liststructurepointer;