let enable_debug = function
  |-> () (* only warning messages : default *)
  |-> Util.Info.all_enabled ()
  |->
      begin
        Util.Info.all_enabled () ;
        Util.Debug.all_enabled ()
      end