remove_leaves
lTo remove the leaves:
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