typedef struct {
	CELL numerator;
	CELL denominator;
} F_RATIO;

INLINE CELL tag_ratio(F_RATIO* ratio)
{
	return RETAG(ratio,RATIO_TYPE);
}

void primitive_from_fraction(void);