my $g = Grammar::BNF.generate(Q:to<END>