{for(a=b=c=d;10>b;a=b*c)gsub(b++,a)<c=1c}a