IsCyclotomic(F: RINGELEM): INT
/**/ use R ::= QQ[x]; /**/ IsCyclotomic(x^6 +x^3 +1); 9 /**/ IsCyclotomic(x^4 -x^2 +2); 0