do 184
pull a
b=pos(!,a)
s=1
do i=left(a,b-1)to 1 by-length(a)+b-1
s=s*i
end
say s
end