! -*- coding: utf-8 -*-

Define Boundary [" " | #] ;

Define TagName [{Ena} | {Nu} | {Ti}] {mex} Alpha* ;

! Skip already tagged names
Define +SkipTagged ["<" TagName ">" [? - "<"]+ {</} TagName ">"] ;

@{Define +${tag}1 $fst EndTag($tag) ; 1
}@

Define TOP LC(Boundary) [ @@ ] RC(Boundary) ;
