let computeOutDegree graph = if !_maxoutdegree <> None then () else begin let (av, mx, h) = degree graph G.succ in _maxoutdegree := Some(mx); _avgoutdegree := Some(av); _outdata := Some(h); end