(: Written By: Frans Englich(maintainer, not original author) :)
(: Purpoose: For each person, list the number of items currently on sale whose
             price does not exceed 0.02% of the person's income. :)
(: Date: 2007-03-09 :)

(: insert-start :)
declare variable $input-context external;
(: insert-end :)

<XMark-result-Q11>
  {
    let $auction := $input-context return
    for $p in $auction/site/people/person
    let $l := for $i in $auction/site/open_auctions/open_auction/initial
              where $p/profile/@income > 5000 * exactly-one($i/text())
              return $i
    return <items name="{$p/name/text()}">{count($l)}</items>
  }
</XMark-result-Q11>
