do input""n$:for i=-10to-n$>""^0k=-i*(k+val(mid$(n$,len(n$)+i,1)))next:?k:k=0loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page