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()