ocaml - マーカーに到達したらファイルの読み取りを停止する

Question

私は次のコードを持っています。これは、私がやろうとしていることの基本です:

let ic = open_in "file.txt" in
try
  while true do
    let line = input_line ic in
    print_endline line
  done
with End_of_file -> close_in ic

私がやりたいことは、「stop_here」という単語に到達するまで各行を追加する文字列にファイルを読み込むことです。

手伝ってくれてありがとう