 reColorF0B = Module[{g = #0, vl = VertexList[#0], cl, ncl},     ncl = (neighborColorsF[g, #0] &) /@ vl; cl = newClrF /@ ncl;                           MapThread[(PropertyValue[{g, #}, VertexStyle] = #0) &, {vl, cl}]; g] &;  reColorF0B = Module[{g = #0, vl = VertexList[#0], cl, ncl},     ncl = (neighborColorsF[g, #0] &) /@ vl; cl = newClrF /@ ncl;                                   SetProperty[g, VertexStyle -> Thread[vl -> cl]]] &;  