let is_active l = 
  Levels.mem l !levels ||
  Levels.mem "all" !levels