;redcode-94
;name miniStone
;author Christian Schmidt
;assert CORESIZE==8000



sStep     equ    4954

Stone     mov    {1601    ,1-sStep
          sub.x  #sStep   ,-1
          jmp    -2       ,}-2

end