#!/usr/bin/env perl
# Compile first pascalnestedeyapp3.eyp with options:
#   eyapp -TP -S range pascalnestedeyapp3.eyp 
use strict;
use warnings;
use range;

my $parser = range->new( yyerror => sub {});
$parser->YYPrompt(<<'EOM');
Try one of these inputs:

                (x) .. (y)
                (x) ..  y 
                (x+2)*3 ..  y/2 
                (x, y, z)
                (x)
                (x, y, z) .. (u+v)

EOM
$parser->slurp_file('', "\n");
my $t = $parser->Run;
if ($parser->YYNberr) {
  print "There were errors\n";
} else {
  print "***********\n",$t->str,"\n";
}