for i=1to 184input""s$
a=val(s$)
w=1
for j=a to 1step len(str$(a))-len(s$)w=w*j
next
?w
next