list setSize(1056)do(list(18,15,7,8,14,4,10,1,9)map(k,n,i:=indexOf(nil) for(j,0,n*n-1,atPut(j=i+(j/n|0)*33+j%n,if(j%33>0or 1>j," "," ").."abcdefghi"slice(k,k+1)))))join print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).