let cp_topology = new string_cp ~group ["topology";"name"] ~short_name:"topo" "rectangle"
  ("The topology. Can be " ^ available_topologies ^ ".")