@0
S: MOV -50 ACC
   ADD RIGHT
   JLZ L
   SUB 25
   JLZ 2
   MOV 3 DOWN
   JMP S
2: MOV 2 DOWN
   JMP S
L: ADD 25
   JLZ 0
1: MOV 1 DOWN
   JMP S
0: MOV 0 DOWN

@1
   MOV 36 ACC!
   MOV UP LEFT
   MOV UP NIL
G: MOV UP ANY
   SUB 1
   JGZ G

   MOV UP DOWN

@2
S: MOV -50 ACC
   ADD LEFT
   JLZ L
   SUB 25
   JLZ 2
   MOV 3 DOWN
   JMP S
2: MOV 2 DOWN
   JMP S
L: ADD 25
   JLZ 0
1: MOV 1 DOWN
   JMP S
0: MOV 0 DOWN

@3
MOV UP RIGHT

MOV UP  ACC
MOV ACC ANY
MOV ACC ANY
JRO -3

@4
   MOV LEFT ACC
   MOV ACC  DOWN
   JRO 2

Z: MOV LAST ACC
   SUB ANY
   JEZ E

   MOV -5   DOWN
   MOV ACC  DOWN
E: JMP Z

@5
MOV UP  ACC
MOV ACC LEFT
MOV ACC LEFT

@6
   MOV UP ACC
   MOV ACC RIGHT
   JRO 4

   MOV RIGHT NIL
   MOV -7  RIGHT

   SUB UP
   MOV ACC ANY

E: MOV ACC DOWN
J: JRO ANY

@7
MOV LEFT ACC
SWP
MOV 0 ACC
JRO 7

MOV ACC DOWN
MOV LEFT ACC
SWP
MOV ACC  DOWN
MOV 0    ACC

MOV -1 LEFT
ADD 1
JRO ANY

@8
MOV -2 LEFT