a:=1;b:=0;for(n,1,9,for(i,1,a,(i ..)toBase(36)uppercase print)writeln;a=a+b;b=a-b)