}
$next_y->();
if (!$bras and
- (grep { $y->{E} eq $_ } qw( or xor and not ; : )
+ (grep { $y->{E} eq $_ } qw( or xor and not ; : , )
or $y->{T} eq 'ket'
)) {
+ # lookahead shows close of containing scope
+ # or lower precedence operator
unshift @ys, $y;
last;
}