1|             |                      |
2|             |                      |
2|             |                      |

##</code><code>##


use strict;
use warnings;

use Data::Dumper;
use Parse::RecDescent;
use File::Slurp;

open (Parse::RecDescent::ERROR, ">errfile")
                or die "Can't redirect errors to file 'errfile'";


$::RD_ERRORS=1;
$::RD_WARN=1;
$::RD_HINT=1;
$::RD_TRACE=$ARGV[0];

sub main {
    my $grammar=read_file("etc/parser.rd");
    my $parser = new Parse::RecDescent($grammar);

    my $data = read_file("data/spec.spd");

    $parser->program($data);
}


main();