a=1 b=0 do 9 say substr(xrange('1','9')xrange('A','Z'),1,a) a=a+b b=a-b end