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