/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,0c.13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c1 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0r..13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c2 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0m.13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c3 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0.13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c4 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c5 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0s13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c6 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0o.13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c7 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0d..13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c8 13,113,013,113,013,11,313,31,313,113,013,113,013,1
/say 0,0a.13,113,013,113,013,11,313,31,313,113,013,113,013,11,3 %c9 13,113,013,113,013,11,313,31,313,113,013,113,013,1