#!/usr/bin/perl -w

`yapp -m Logic logic.lex.yp`;

use Data::Dumper;
use Logic;

$parser = new Logic();

print $parser->YYParse(yylex=>\&Logic::lex),"\n";