token qlit($open!,$close=$open) { '%q' [ $open ~ $close <non-expanded-literal-string>* ] }

proto token quoted-non-expanded-literal-string {*}
token quoted-non-expanded-literal-string:sym</>  { <qlit <sym>> }
token quoted-non-expanded-literal-string:sym<~>  { <qlit <sym>> }
token quoted-non-expanded-literal-string:sym<<>> { <qlit('<','>')> }
token quoted-non-expanded-literal-string:sym<%>  { <qlit <sym>> }
token quoted-non-expanded-literal-string:sym<->  { <qlit <sym>> }
token quoted-non-expanded-literal-string:sym<>>  { <qlit <sym>> }
token quoted-non-expanded-literal-string:sym<">  { <qlit <sym>> }
token quoted-non-expanded-literal-string:sym<'>  { <qlit <sym>> }