let for_each str f =
  let rec helper spot final =
    if spot = final then ()
    else begin
      f str.[spot];
      helper (spot + 1) final
    end
  in
  helper 0 (String.length str)

let () = for_each "Hello" print_char