let cp_range = new int_cp ~group ["topology";"range"] 1 "range of the neighbourhood"