;redcode
;name PartlyEvolved 409
;author Martin Ankerl
; <martinus@awhs.at>
;assert 1
jmp.i  $    4, * 1157
DAT.F  {  -25, <   14     
spl.B  #  310, #  300     
add.F  $    3, @    1     
SNE.f  *   -2, @   -2     
DJN.i  $   -2, < 5891     
SPL.f  #   20, $   20     
MOV.I  @    1, >  -10     
djn.ab $   -1, {   -6     
end