xquery version "3.1"; declare namespace tei="http://www.tei-c.org/ns/1.0"; declare variable $poem := The Best Thing in the World Elizabeth Barrett Browning

The Poetical Works, Vol. IV

Project Gutenberg

 What's the best thing in the world? June-rose, by May-dew impearled; Sweet south-wind, that means no rain; Truth, not cruel to a friend; Pleasure, not in haste to end; Beauty, not self-decked and curled Till its pride is over-plain; Light, that never makes you wink; Memory, that gives no pain; Love, when, so, you're loved again. What's the best thing in the world? —Something out of it, I think. ; let $months := ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") let $lines := $poem/tei:text/tei:body/tei:l for $line in $lines where $line contains text { $months } occurs at least 2 times return $line