`json_top_subset` is too slow

[salotz-sitx]

For large topologies this function is far too slow to be practical. The implementation had no optimizations applied so there is likely some easy things to do like not relying on list.index inside nested for loops :P