sub o{
  my ($g,$w,$c) = @_;
  map{
    map{ /\+/ && $c++; /\-/ && $c--} @$_
  } @$g;
  [$c,$w]
}