Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
my $root    = $grammar->parse(\$input, 'Construct');

($$root)->traverse(sub {print "  " x $_[0]->{_depth}, $_[0]->getNodeVa
+lue(), "\n"});

Select or download this
```
+
  *
...
  *
    3
    4
```