let cp_rule = new string_cp ~group ["rule";"name"] "cyclic" ~short_name:"rule"
  ("The model of CA being studied. Can be " ^ available_rules ^ ".")