ocaml/test3.ml

   1 (* From: http://www.ocaml-tutorial.org/the_structure_of_ocaml_programs *)
   2
   3 open Graphics;;
   4
   5 let () =
   6   open_graph " 640x480";
   7   for i = 12 downto 1 do
   8     let radius = i * 20 in
   9     set_color (if (i mod 2) = 0 then red else yellow);
  10     fill_circle 320 240 radius
  11   done;
  12   ignore (read_line ())