Function compress_cycles 

fn compress_cycles(
    graph: &Graph<MarketSet, GraphEdge, Directed>,
) -> Graph<MarketSet, GraphEdge, Directed>

Compresses cycles into MarketSet::Cycle nodes