{
   sub treeify_r {
      my $t = pop;
      $t = [ pop, pop, $t ]
         while @_;
      return $t;
   }
}

pow  : NUM pow_      { treeify_r($item[1], @{$item[2]}) }
pow_ : '**' NUM pow_ { [ $item[1], $item[2], @{$item[3]} ] }
     |               { [] }