# cyc2rad(#cyc); 
# transforms a cyclotomic number (input) into the corresponding square root 
# of a radical (output as a string)
# by L.Fortunato Dec. 2009
Print("\n cyc2rad function loaded - by L.Fortunato \n\n");
cyc2rad:=function(arg)
local x,sign,out;
x:=arg^2;
if Sqrt(x)=arg[1] then
sign:="+";
elif Sqrt(x)=-arg[1] then
sign:="-";
fi;
Print(sign,"Sqrt(",x,")\n");
return;
end;