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