本文中の関数 whle を参考にして，for式相当の機能を実現する再帰関数を定義しなさい。
こんなんでいいのかな。
# let rec fr frm t body = if frm <= t then begin body frm; fr (frm + 1) t body end ;; val fr : int -> int -> (int -> 'a) -> unit = <fun>
# fr 1 5 (fun x -> print_endline ( string_of_int x));; 1 2 3 4 5 - : unit = ()