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