Mathematica automatically lays out networks with many components better than could usually ever be achieved by humans.

GraphPlot[Table[i -> Mod[i^3, 100], {i, 100}], DirectedEdges -> True]