;redcode-94
;assert CORESIZE == 8000
;name xx_2.red
spl.x  # -1,> -1
djn.b  *  3,> -1
jmz.x  $  3,@  0
mod.ab $  1,#  9
mov.ba { -7,<  9
cmp.f  #  8,# -5
div.i  # -3,# 10
jmn.ba <  0,{  4
sub.ba *  3,#  3
end
;0