use strict;
use warnings;
use Parse::RecDescent;


$::RD_ERRORS = 1;
$::RD_WARN   = 1;
$::RD_HINT   = 1;

my $grammar = q{
     identifier : /[a-z]\w+/
     binops : '+' | '-' | '/' | '*' | '%' | '**'
     lbinops: '!' | '<' | '>' | '>='| '<='| '&&'| '||' | '=='
     integer: /-\d+/ {print "hello $item[-1]" if $::debugging;}
     number : /(\d+|\d*\.\d+)/ {print "hello $item[-1]" if $::debugging;}
};

#evals: these will evaluate to "1" and print
#print "valid number\n" if $parser->number(2);
#print "valid integer\n" if $parser->integer(-2);