let $auction := doc("http://monetdb.cwi.nl/xmark/auctions.xml") return
count(
  for $i in $auction/site/closed_auctions/closed_auction
  where $i/price/text() >= 40
  return $i/price
)