]; g0 = SetProperty[g, { VertexSize -> Large, ImageSize -> 000,         VertexLabels -> Placed["Name", Center],        VertexStyle -> Thread[Range[00] -> RandomChoice[{Red, Blue, Green}, {00}]]}]; g0 = SetProperty[g, { VertexSize -> Large, ImageSize -> 000,         VertexLabels -> Placed["Name", Center],        VertexStyle -> Thread[Range[00] -> RandomChoice[{Red, Blue, Green}, {00}]]}];  Grid[Most@FixedPointList[reColorF0, #, 0] & /@ {g0, g0}]  Grid[Most@FixedPointList[reColorF0, #, 0] & /@ {g0, g0}] 