def TooClose (elm:var[]..[],min)
pnt1 = List.FirstItem(elm.GetLocation());
elm2 = List.RestOfItems(elm);
pnt2 = elm2.GetLocation();
bln1 = pnt1.DistanceTo(pnt2) < min;
elm3 = List.FilterByBoolMask(elm2,bln1)["out"];
def Distancing (elm:var[]..[],min)
elm1 = [List.FirstItem(elm)];
while (List.Count(elm) > 1)
elm2 = TooClose (elm,min);
elm1[c] = List.FirstItem(elm2);