;redcode-94
;assert CORESIZE == 8000
;name xx_1.red
spl.x  #  0,$ -1
add.b  <  0,{ -7
jmz.ab $  5,# -3
slt.ab {  3,$  3
cmp.a  $  2,@  9
slt.f  $  8,*  0
div.f  <  9,@ -5
sub.ba @ 10,<  0
jmz.f  $  5,*  4
end
;0