procedure main() every b:=(n:=0to 99)%10+1&(s:=0)+:=(n+1)/b^(d:=0to n)%(b+1/b)*10^d|write(s) end