let drawrect area =
let rec loop1 m =
  match m with
    | m when m < 5 ->
      (let rec loop x y n =
        match n with
        | n when n < 5 ->
          let x = x + 5 in
          let y = y + 5 in
          let width = 10 in
          let height = 10 in
          let update_rect = Gdk.Rectangle.create ~x ~y ~width ~height in
          area#misc#draw (Some update_rect);
          loop x y (n + 1)
        | n when n >= 5 -> loop1 (m + 1)
      in loop 0 0 0)
     | m when m >= 5 -> loop1 0
in loop1 0
;;