@0


@1
   MOV UP   ACC
   JNZ N
   MOV 1    DOWN
G: NEG
N: MOV -999 LAST
   MOV ACC  LAST
   MOV ACC  ANY
   JGZ G

@2


@3


@4


@5
MOV UP DOWN

@6


@7


@8
   SUB LAST
   JLZ L
   MOV 0    ACC
L: ADD ANY

   SWP
   JRO UP

   MOV ACC  DOWN
   SUB LAST
   SWP
   NEG
   MOV ACC  RIGHT

@9
MOV LEFT DOWN

@10