let iter_reverse t ~f =
    for i = length t -1 downto 0 do
      f (get_exn t i)
    done