declare namespace svg="http://www.w3.org/2000/svg"; 

let $doc := doc("flamme.xml")
        return
		<svg:svg xmlns:svg="http://www.w3.org/2000/svg">
			<svg:g transform="scale(2) translate(100,50)" font-family="Verdana">

				<svg:rect x="-50" y="0" width="300" height="{100+count($doc/poème/vers)*20}" fill="rgb(120,0,0)" rx="10" stroke="rgb(40,0,0)" stroke-width="2" />
				<svg:text x="-40" y="40" fill="white" font-weight="bold">{data($doc/poème/@nom)}</svg:text>

				<svg:g transform="translate(100,20)" font-style="italic" text-anchor="middle" fill="white">
				{
				for $i in 1 to count($doc/poème/vers)
				return
					<svg:text y="{$i*20+50}">{data($doc/poème/vers[$i])}</svg:text>
				}
				</svg:g>
			</svg:g>
		</svg:svg>