num(N:INT or RAT):INT num(N:POLY or RATFUN):POLY
/**/ num(3); 3 /**/ P ::= QQ[x,y]; /**/ F := NewFractionField(P); /**/ Use F; /**/ Den(x/(x+y)); x