let rec game_loop() =
  if end_game() then (
    match Gui.click() with
        Glob.Next -> (
           init_gb();
           Gui.draw_gb Glob.gb;
           Gui.draw_next_bt();
           game_loop()
        )
      | _ -> Graphics.close_graph()
  )
  else (
    game_act();
    game_loop()
  )