start:
  exactf "f", find_o
  advance quit
  goto start

find_o:  # non-greedy, by the way
  goto find_bar

find_o_real:
  exactf "o", find_o
  goto start

find_bar:
  exactf "bar", done
  goto find_o_real

done:
  end

quit:
  fail

##</code><code>##

start:
  exactf "f", find_bar
  advance quit
  goto start

find_o_real:
  exactf "o", find_bar
  goto start

find_bar:
  exactf "bar", done
  goto find_o_real

done:
  end

quit:
  fail