{delete a
for(a[v=433]=i=1;j=i++<$0;){for(;i%++j;);for(;j>=i&&j<=$0;j*=i)for(k=v;a[k]_||c;c=int(c/10))a[k]=(c+=i*a[k--])%10}for(o=_;v;)o=a[v--]o}$0=o