[Header]

[Test]
iter(10, fun x -> x + 4) 100

[Value]
140

[Test]
(* base case (i=0) *)
iter(0, fun x -> x + 3) 300

[Value]
300

[Test]
(* test 3 *)
iter (3, List.tl) [2;3;4;5;6;7]

[Value]
[5;6;7]

[Test]
(* test 4 *)
iter (3, (fun s -> s ^ s)) "a"

[Value]
"aaaaaaaa"

[Test]
(* test 5 *)
let rotate_quadraple (x,y,z,w) = (w, x, y, z) in
iter (5, rotate_quadraple) (1,2,3,4)

[Value]
(4, 1, 2, 3)