@0


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

@2


@3


@4
   MOV 38 ACC
D: MOV UP DOWN
   SUB 1
   JGZ D
   MOV -1 DOWN

@5


@6
   MOV UP  ACC
   MOV ACC LAST
   MOV ACC ANY
   MOV ACC DOWN

@7
E: MOV LEFT ACC
   SWP
   ADD 1
   SWP
   SUB LEFT
   JEZ E
   ADD LEFT
   SWP
   MOV ACC DOWN
   MOV 1 ACC
   SWP
   MOV ACC DOWN
   MOV LEFT NIL!

@8