@0


@1
MOV UP,DOWN
MOV UP,ACC
MOV ACC,RIGHT
MOV ACC,RIGHT

@2
^:MOV UP,DOWN
MOV UP,ACC
SAV
SUB LEFT
JGZ A
SWP
MOV ACC,DOWN
MOV LEFT,DOWN
JMP ^
A:MOV LEFT,DOWN
SWP
MOV ACC,DOWN

@3


@4


@5
MOV UP,ACC
MOV ACC,RIGHT
MOV ACC,RIGHT

@6
MOV UP,ACC
SAV
SUB LEFT
JGZ A
SWP
MOV ACC,DOWN
MOV LEFT,DOWN
JMP V
A:MOV LEFT,DOWN
SWP
MOV ACC,DOWN
V:MOV UP,DOWN
MOV UP,DOWN

@7


@8


@9
MOV UP,DOWN
MOV UP,DOWN
MOV 0,DOWN

@10