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

<seq> ::= ...

END
);