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

   assign   : <rightop: IDENT ASSIGN assign >
              { treeify_r(@{$item[1]}); }

   ASSIGN   : '='