#!/usr/bin/perl

# test.pl

use strict;
use warnings;

use Grammar      qw( );

my $parser = Grammar->new();

while(<>)
{
 chomp;
 my $rv = eval { $parser->parse($_) };

 my $e = $@;
 
 if ($e) {
      $rv = "$_ = $e";
      $rv =~ s/\n\z//;
   } elsif (!defined($rv)) {
      $rv = "$_ = Bad Expression";
   } 
}

exit;