gawk 'function f(n,	t){ t=int(sqrt(n));for(i="__";length(i)<=t;i=i"_"){if(n%length(i)==Z)return Z}return n!=O }BEGIN{ Z=length("");O=length("_");getline n;print f(n)?"YES":"NO" }'