;redcode
;name doodle
;author brx
;strategy oneshot?!
;assert 1

len     equ 9

step    equ 4763
magic   equ 300

sbeg    equ (MAXLENGTH+MINDISTANCE)
dsbeg   equ -(MAXLENGTH+MINDISTANCE)

scan    add #step, #(sbeg-step)
        jmz.f -1, @-1

        mov.ba scan, scan
        sub.b scan, 2

sc      mov dc, >scan
        djn.b -1, #magic

dc      spl #666, #333
        mov db, }scan

db      dat len, 777