start:
  exactf "f", find_o
  advance
  goto start

find_o:
  exactf "o", find_o
  exactf "bar", done
  goto start

done:
  end