;redcode-94 ;assert CORESIZE == 8000 ;name ha_31a.red spl.f # -8,> 13 seq.i @-15,<-10 jmz.x > 17,{ -1 djn.i # -2,{-11 slt.f # 19,$ 0 end ;100