logical_expr : comparison_expr logical_op logical_expr 
             | comparison_expr

##</code><code>##

logical_expr : comparison_expr mult_logical_expr(s?)
mult_logical_expr: logical_op comparison_expr

# or:

logical_expr : comparison_expr (logical_op comparison_expr)(s?)

##</code><code>##

logical_expr : comparison_expr
               (logical_op comparison_expr { [ \@item[1..2] ] })(s?)
               { [  \$item[1], map { \@ \$_ } \@{\$item[2]} ] }

comparison_expr : math_expr
                (comparison_op math_expr { [ \@item[1..2] ] })(s?)
                { [  \$item[1], map { \@ \$_ } \@{\$item[2]} ] }

math_expr : paren_expr
            (math_op paren_expr { [ \@item[1..2] ] })(s?)
            { [  \$item[1], map { \@ \$_ } \@{\$item[2]} ] }

##</code><code>##

$::RD_AUTOACTION = q { bless [@item[1..$#item]], "$item[0]_node" };