binary_op     : '(' subexpression (op subexpression {[\@item[1..2]]} )(s?) ')'
                { [  \$item[2], map { \@\$_ } \@{\$item[3]} ] }