typedef struct {
	CELL header;
	CELL real;
	CELL imaginary;
} F_COMPLEX;

void primitive_from_rect(void);
void fixup_complex(F_COMPLEX* complex);
void collect_complex(F_COMPLEX* complex);