let window = GWindow.window
    ~width: 600
    ~height: 600
    ~title: "ocamlcvs" ()