1 (* From: http://www.ocaml-tutorial.org/the_structure_of_ocaml_programs *)
5 Graphics.open_graph " 640x480";
7 let rec iterate r x_init i =
10 let x = iterate r x_init (i-1) in
15 let r = 4.0 *. (float_of_int x) /. 640.0 in
17 let x_init = Random.float 1.0 in
18 let x_final = iterate r x_init 500 in
19 let y = int_of_float (x_final *. 480.) in