my($parser)=new Parse::Yapp(inputfile => $filename);
Work( $parser->{GRAMMAR} );