|a i|a:=Array new:1056. #(18 15 7 8 14 4 10 1 9)with:'abcdefghi'do:[:v :c|i:=a indexOf: nil.0to: v*v- 1 do:[:j|a at: j\\v+i+(j//v*33)put:' ',c asString,(j\\v+i\\33=0and:['
'])]].a do:[:c|c display]!