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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page