_XA
grab 300

mark process
test f > x
tjmp higher
jump process

mark higher
seek -1
copy f x
copy 1 m
jump process


_XB
mark recv
copy m f
noop
noop
noop
noop
test mrd
tjmp recv
halt