Help for this page
sub o{ my ($g,$w) = @_; ... } @$g; return [$c,$w] }
sub o{ my ($g,$w) = @_; ... } @$g; [$c,$w] }