RE:
    #set up flags and stuff
    branch $start
$advance:
    rePopindex
    reAdvance $fail
$start:
    reLiteral "f", $advance
    rePushindex
    rePushmark
$findo:
    rePushindex
    reLiteral "o", $findbar
    branch $findo
$backo:
    rePopindex $advance
$findbar:
    reLiteral "o", $backo
    set I0, 1
    reFinished
$fail:
    set I0, 0
    reFinished

##</code><code>##

RE:
    #set up flags and stuff
    reOnfail $fail  #if there's nothing left on the stack
    branch $start
$advance:
    reAdvance
$start:
    rePushindex $advance
    reLiteral "f"
$findo:
    rePushindex $findbar
    reLiteral "o"
    branch $findo
$findbar:
    reLiteral "bar"
    set I0, 1
    reFinished
$fail:
    set I0, 0
    reFinished