@0


@1
   MOV UP  ACC
   MOV ACC DOWN
   MOV ACC DOWN

@2


@3


@4


@5
   MOV UP ACC
   JMP M
L: SWP
M: MOV UP DOWN
C: SAV
   SUB UP
   JLZ L
   MOV UP ACC
   JNZ C

O: MOV -999 DOWN
   SWP
   MOV ACC DOWN

@6


@7


@8
   MOV UP ACC

G: MOV ACC RIGHT
   MOV UP  ACC
   MOV ACC RIGHT
   JGZ G

   MOV UP DOWN

@9
L: MOV LEFT ACC
   JMP E

N: MOV LEFT NIL
   SWP
E: SAV
   SUB LEFT
   JLZ L

   SUB 999
   JNZ N

   SWP
   MOV ACC DOWN

@10