start:
  exactf "f", find_o
  advance
  goto start

find_o:
  save
  exactf "o", find_o

find_bar:
  exactf "bar", done
  restore
  goto find_bar

done:
  end