sub treeify {
         my $t = shift;
         $t = [ shift, $t, shift ]
            while @_;
         return $t;
      }