my $grammar = q{
	{my $re_type = qr /.::/ }
	Document	: Element(s)

	Element		: Header Body
		
	Header		: Element_Type Options(?)  
	
	Element_Type: /$re_type/

	Options		: '(' Arg(s) ')' 
	
	Arg			: /\b(\w+)\s*=\s*(\w+)\s*/xms
	
	Body		: '{' Line(s) '}' <commit>
	
	Line		: Element
				| Text Line
				| Text
				
	Text		:/[^\{\}]*\n/xms
				 
	
};