for n=0,99 do s=""b=n%10+1 for d=0,n do x=(n+1)/b^d s=x%b-x%1 ..s end print(b<2 and("1"):rep(n+1)or 0+s)end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page