aging :: Input a => Node a -> StGNG a ()
aging node = do
    let eids = node^.edgeIds
    forM_ eids $ modifyEdge (&age %~ (+1))
    excludeEdges eids
aging :: Input a => Node a -> StGNG a ()
aging node = do
    let eids = node^.edgeIds
    forM_ eids $ modifyEdge (&age %~ (+1))
    excludeEdges eids
aging node = do
    let eids = node^.edgeIds
    forM_ eids $ modifyEdge (&age %~ (+1))
    excludeEdges eids