;redcode
;name BinFool
;author Philip Thorne
;assert CORESIZE==8000

        spl     1
        spl     1
        add.f   $1,     $1
        spl     #1,     1
        mov.i   *-1,    >-1
        add.ab  #1,     @-1
        jmp     @-1,    1
    for 16-4
        dat     0,      0
    rof
bmb:    dat     1,      1
end