@0
  JRO UP
   MOV DOWN RIGHT
   MOV 7 RIGHT
   MOV 12 LEFT
   MOV 9 RIGHT

@1
   MOV LEFT DOWN
   MOV -4 DOWN
   MOV 9 DOWN
   MOV -8 DOWN
   MOV -5 DOWN
   MOV -6 DOWN
   MOV -6 DOWN
   MOV -2 DOWN
   MOV -5 DOWN

@2
>: SUB 1
   JGZ >
   MOV 2 RIGHT
   MOV 7 ACC
   SUB RIGHT
   ADD RIGHT

@3
   MOV LEFT,NIL
   MOV 7 DOWN

# READ FROM RIGHT
# IF POSSIBLE, OR
# FROM STACK WHICH
# FORCES OUT NODE
# TO READ UP WITH
# SOME NICE FTL!
   MOV ANY LEFT

   MOV ANY LEFT
   MOV LEFT DOWN

@4
   MOV 1 ANY
   MOV 8 DOWN

@5
   JRO UP
   MOV -5 DOWN
   MOV 7 DOWN
   MOV -4 DOWN
   MOV -7 DOWN
   MOV -8 DOWN
   MOV -3 DOWN
   MOV -6 DOWN
   MOV 1 DOWN
&: MOV UP DOWN
   JMP &

@6
   MOV 181 ACC
>: MOV 1 RIGHT
   SUB 9
   JGZ >
   MOV -10 RIGHT
   JRO 0

@7
   MOV 0 DOWN
   MOV 0 DOWN
   MOV 0 DOWN
   JRO ANY
   MOV ACC DOWN
   MOV ACC DOWN
   MOV ACC DOWN
   MOV ACC DOWN
   MOV ACC DOWN
   MOV ACC DOWN
   MOV ACC DOWN
   ADD LEFT
   MOV ACC DOWN
   JRO RIGHT

@8
   MOV UP LEFT
   JRO UP
   MOV -4 LEFT
   MOV -8 LEFT
   MOV -2 LEFT
   MOV -4 LEFT
   MOV -9 LEFT
   MOV -4 LEFT
   MOV -5 LEFT
   MOV -5 LEFT
   MOV -6 LEFT
&: MOV UP LEFT
   JMP &