 when the lexer encounters a &ldquo;style&rdquo; tag with a &ldquo;type&rdquo;
    attribute whose value is &ldquo;text/css&rdquo;:</p>

    <pre><code>
    local css_tag = P('&lt;style') * P(function(input, index)
      if input:find('^[^&gt;]+type="text/css"', index) then
        return index
      end
    end)
    </code></pre>

    <p>This pattern looks for the beginning of a &ldquo;style&rdquo; tag and searches its
    attribute list for the text &ldquo;<code>type="text/css"</code>&rdquo;. (In this sim