/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 4,80,0..tt.4,81,0
/say 4,810,84,0 %c1 4,84,0 %c1 10,84,81,0
/say 4,810,813,84,0 %c2 4,810,84,84,0 %c2 13,810,84,81,0
/say 4,810,813,812,84,0 %c3 4,810,813,810,84,84,0 %c3 12,813,810,84,81,0
/say 4,810,813,812,87,84,0 %c4 4,810,813,812,813,810,84,84,0 %c4 7,812,813,810,84,81,0
/say 4,810,813,812,84,0 %c5 4,810,813,812,87,812,813,810,84,84,0 %c5 12,813,810,84,81,0
/say 4,810,813,84,0 %c6 4,810,813,812,87,80,87,812,813,810,84,84,0 %c6 13,810,84,81,0
/say 4,810,84,0 %c7 4,810,813,812,87,80,87,812,813,810,84,84,0 %c7 10,84,81,0
/say 4,84,0 %c8 4,810,813,812,87,812,813,810,84,84,0 %c8 4,81,0
/say 4,0 %c9 4,810,813,812,813,810,84,84,0 %c9 1,0
