my $bnf=BNF::new('BNF-String');