The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

SYNOPSIS

Compile Rule6.yp first:

             eyapp Rule6

Run it like this:

      $ ./numchildren.pl 'a=0*8'
      Tree after applying '0*x => 0' transformation:
      ASSIGN(TERMINAL[a],NUM(TERMINAL[0]))