graphicsモジュールでお絵描き2

open Graphics

let f n = 
  let g x = Random.int x in
  let getcolor () =
      rgb (g 255) (g 255) (g 255) in
  let rec loop n = 
    match n with
	0 -> ()
      | n -> 
	  set_color(getcolor ());
	  fill_circle (g (size_x ())) (g (size_y ())) (g 50);
	  loop (n - 1)
  in loop n
  
let rec g m n =
  Unix.sleep 1;
  match m with
      0 -> () 
    | _ -> 
	f n; 
	g (m - 1) n

let () =
  open_graph " 600x600";
  g 10 20;
  close_graph ()