do input""n$:for i=-10to-n$>""^0k=-i*(k+val(mid$(n$,len(n$)+i,1)))next:?k:k=0loop