;redcode-94
;assert CORESIZE == 8000
;name ha_3c.red
djn.x  # 21,<-23
mov.i  * 19,>-19
seq.x  $  9,{  1
jmp.a  $ -1,> -9
jmp.i  # -9,@ 21
sne.a  $  4,* 15
nop.ba #-12,< 10
seq.b  > -1,>-20
jmz.b  { 21,* 17
slt.a  {  1,*  9
spl.i  # 14,#-15
mod.i  @  4,*  1
jmn.ba >  5,< 20
nop.i  >  2,# 17
mul.i  >-18,$ 15
sub.i  < -9,$ -7
jmn.ab < 12,@  7
spl.ba $-11,# -5
nop.b  @ 21,#-14
end
;191