Как вернуть индекс цикла for в OCaml?

let find_free_next heap start = 
  for i = start to ((Array.length heap)-1) do
     match heap.(i) with 
     Hdr (Free (h), g)  ->
        i
  done

Как вернуть индекс цикла в виде целого числа после того, как совпадение найдено?