ll@X;
rrep(x,1,1d7)if(X%((ll)x*x)==0)X/=((ll)x*x);
wt(X);