gistfile1.txt

grammar ML {
  rule TOP { <tag> }

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

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

  token tag {
    <btag>
    ~
    <etag($<btag><name>)>
    $<children> = [[<!after '<'> .*] | <tag>]*
  }
  token la { <!after '\'> '<' }
  token ra { <!after '\'> '>' }
  token btag { [<.la> \s* <name=.identifier> \s* [<attribute>*% \s] <.ra>] }
  token etag($name) { <.la> '/' \s* $name \s* <.ra> }
  token attribute { <identifier> [\s* '=' \s* <quoted>]? }
}