let main () =
  try (
    Graphics.open_graph (Printf.sprintf" %dx%d" Gui.gw_width Gui.gw_height);
    Gui.draw_next_bt();
    Gui.draw_quit_bt();
    init_gb();
    Gui.draw_gb Glob.gb;
    last_act := Glob.Null;
    game_loop()
  )
  with
    Failure "quit" -> Graphics.close_graph()