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