#!/usr/bin/perl -w
use strict;
use Parse::Eyapp::Node;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Purity = 1;
my $string = shift || 'ASSIGN(VAR(TERMINAL), TIMES(NUM(TERMINAL),NUM(TERMINAL))) ';
my @t = Parse::Eyapp::Node->new(
$string,
sub { my $i = 0; $_->{n} = $i++ for @_ }
);
print "****************\n";
print Dumper(\@t);