#!/usr/bin/perl 
use warnings;

package Actions;
use base NoacInh;

sub NUM {
  return $_[1];
}

sub PLUS {
  "$_[1] $_[3] +";
}

sub TIMES {
  "$_[1] $_[3] *";
}

my $parser = __PACKAGE__->new();
$parser->slurp_file('', "Write an expression: ","\n"); 
my $t = $parser->Run();

print "$t\n" unless $parser->YYNberr;

=head1 SYNOPSIS

Both C<icalcu.pl> and C<ipostf.pl> inherit and recycle
the grammar in C<NoacInh.eyp>

Do:

       eyapp NoacInh
       icalcu.pl
       ipostf.pl