a=scan("stdin",,,,",");x=1:a[2];y=1:a;m=x%o%y;i=96;l=length
while(a<-min(l(x),l(y))){m[x[z<-1:a],y[z]]=i=i+1
l(x)>a&&(x=x[-z])||(y=y[-z])}
write(apply(m,1,intToUtf8),1)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).