open Graphics
open RootGraphics

let _ =
  open_root_graph "";
  fill_rect 10 10 10 10;
  Unix.sleep 100