let cp_experiment = new string_cp ~group ["experiment";"name"] ~short_name:"exp" "states"
  ("The measurement. Can be " ^ available_experiments ^ ".")