gistfile1.txt

use v6;
use Grammar::Tracer;

grammar ML {
  rule TOP { <tag> }

  token identifier { \w <[\w\d]>* }

  token quote { <!after \\> '"' }
  token quoted { <.quote> ~ <.quote> <.-quote>* }

  token tag {
    [<btag> ~ <etag($<btag><name>)>
      <-lt>*
    ]
    | <sctag>
  }
  token sctag { <.lt> \s* <name=.identifier> [\s+ [<attribute>*% \s+]]? '/' <.gt> }
  token btag  { <.lt> \s* <name=.identifier> [\s+ [<attribute>*% \s+]]? <.gt> }
  token etag($name) { <.lt> '/' \s* $name \s* <.gt> }
  token lt { <!after \\> '<' }
  token gt { <!after \\> '>' }
  token attribute { <identifier> [\s* '=' \s* <quoted>]? }
  regex child { <-lt>* | <tag> }
}

sub MAIN(){
  ML.parse('<input type="hidden" name="secret"></input>').say;
}