Remove all Unconnected Points with Wrangle | No Add SOP

//Point Context

int primPoints[];

for(int i = 0; i < @numpt; i++){

primPoints = pointprims(0, i);

if(len(primPoints) == 0){

removepoint(0, i);

}

}