up: input
right:stack
# end detector

MOV 0,RIGHT
S:MOV UP,ACC
JEZ SIGNAL
MOV ACC,RIGHT
JMP S
SIGNAL:MOV 0,DOWN
MOV DOWN,NIL
---
up: end detector
right: outputter
# passer

MOV UP,RIGHT
---
up: stack
left: passer
# outputter

MOV LEFT,NIL
L:MOV UP,ACC
MOV ACC,DOWN
JNZ L
MOV 0,LEFT