-Doc = head:{Header} body:Body /ws
-Header = "header" attrs:{ kv */ ws } /ws
-Body = Section*/ws
-Section = { Section:: header:SectionHeader paragraphs:Paragraph* /ws }
+Doc = head:Header body:Body /ws
+Header = H:: { "header" { KeyVal */ ws } /ws }
+Body = B:: {Section}*/ws
+Section = SectionHeader Paragraph* /ws