@1
L:MOV UP ACC
MOV ACC DOWN
SWP
MOV ACC DOWN
ADD 1
SWP
JEZ E
MOV -2 DOWN
JMP L
E:MOV 3 DOWN
SWP
SUB 1
D:MOV ACC DOWN
JRO DOWN

@3
L:ADD UP
SUB UP
JRO UP
P:MOV -1 UP
MOV 1 DOWN
D:SUB UP
JGZ P
MOV -13 UP
MOV 3 DOWN
MOV ACC DOWN
MOV 0 ACC

@5
L:JRO UP
ADD 1
JMP L
SUB UP
ADD 1
MOV ACC DOWN
MOV 0 ACC
