1input""a$:if""<a$b=len(a$):c=1:d=0:for v=1to b:d=d+c*val(mid$(a$,b-v+1,1)):c=c*v:next:?d:goto 1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page