remove_leaves
lTo
remove the leaves:
remove any arc that points to a leaf
drop((Arc)=>isLeaf(second(Arc), Graph), Graph);
remove any arc that points to a leaf
lremoveLeaves(Graph)
=
drop((Arc)=>isLeaf(second(Arc), Graph), Graph);
the node
to which Arc points
the list
of arcs in the graph