do input""i$:k=val(i$):j=0^i$>"":n$=""
1j=j+1:n$=chr$(mod(k,j)+48)+n$:k=k/j:if!!k goto 1
?n$loop