 /set %c1  $+  $+ $mid(1,1,%nn) | /set %c2  $+  $+ $mid(2,1,%nn) | /set %c3  $+  $+  $mid(3,1,%nn) | /set %c4  $+  $+ $mid(4,1,%nn) | /set %c5  $+  $+ $mid(5,1,%nn) | /set %c6  $+  $+ $mid(6,1,%nn) | /set %c7  $+  $+ $mid(7,1,%nn) | /set %c8  $+  $+ $mid(8,1,%nn) | /set %c9  $+  $+ $mid(9,1,%nn) 
 /say 0,0SEJAC`SEJAC`SE6,6J13,13AC`0,0SEJAC`SEJAC`SEJAC`SEJ15,15AC`SE
 /say 11,11SEJ10,10A0,0C`SEJAC`15,15SEJ6,13 %C3 15,15AC0,0`SEJAC`5,5S4,4EJA0,0C`SEJAC`15,15S0,0EJA15,15C
 /say 1,11 %c1 15,15S15,15EJ0,0AC`SEJ15,15A0,0J6,6C13,13`SE0,0J15,15A0,0C`S15,15EJAC`5,4 %C6 15,15SE0,0JAC`10,10S11,11EJA0,0C`15,15S
 /say 11,11SEJ10,10A0,0C15,15`0,0S12,12EJA2,2C0,0`15,15S0,0E6,6JAC`0,0S15,15E0,0JAC15,15`0,0SEJ5,5A4,4C`S0,0E15,15J0,0AC`S10,10E1,11 %C8 0,0JA15,15C
 /say 10,10SEJA0,0C15,15`S0,12 %c2 15,15E15,15JA0,0C`SEJA15,15C0,0`S8,8EJA7,7C0,0`5,5SEJA0,0C15,15`0,0SEJA10,10C11,11`SE0,0J2,2A15,15C2,2`S
 /say 0,0SEJAC`S12,12EJA2,2C0,0`SEJAC3,3`9,9SEJ0,0A7,8 %C5 7,7C0,0`SEJAC15,15`0,0SEJA10,10C`15,15S10,10E0,0J2,2A12,12C`S
 /say 0,0SEJAC`S2,2EJAC0,0`SEJAC3,3`3,9 %C4 0,0S8,8EJA7,7C0,0`SEJAC15,15`0,0SEJAC`15,15S0,0EJ2,2A0,12 %c9 
 /say 0,0SEJAC`SEJAC`SEJAC3,3`9,9SEJ0,0A7,7C15,15`7,7SE0,0JAC`SE15,15J0,0A1,1C`S14,14E0,0J15,15A0,0C`2,2S12,12EJA
 /say 0,0SEJAC`SEJAC`SEJAC3,3`S15,15E3,3J0,0AC15,15`0,0SEJAC`SE15,15JA0,1 %C7 15,15C`S
 /say 0,0SEJAC`SEJAC`SEJAC`S15,15E0,0JAC15,15`0,0SEJAC`SEJA1,1C`S14,14E
 /say 0,0SEJAC`SEJAC`SEJAC`S15,15EJAC`0,0SEJAC`SEJA14,14C`SE
 /say 0,0SEJAC`SEJAC`SEJAC`SEJAC`SEJAC`SEJAC`SEJAC`SEJAC`0eJac`             