#!/usr/bin/env perl
use warnings;
use strict;
use simplewithwhites;
my $parser = simplewithwhites->new();
# take the input from the specified file
my $fn = shift;
$parser->YYSlurpFile($fn);
# parse the input and get the AST
my $tree = $parser->YYParse();
print $tree->str()."\n";