xquery impl of fizzbuzz - can you do faster or more elegant ?

gistfile1.xq

for $n in (1 to 100)
let $fizz := if ($n mod 3) then () else "fizz"
let $buzz := if ($n mod 5) then () else "buzz" 
return
  if ($fizz or $buzz) then concat($fizz,$buzz) else $n

from @KitWallace

http://en.wikibooks.org/wiki/XQuery/Fizzbuzz

faster but ugly...

let $max := 100
let $seq := (for $i in (1 to 14) return if ($i mod 3 eq 0) then "fizz" else if ($i mod 5 eq 0) then "buzz" else "", "fizzbuzz")
for $s at $i in fn:subsequence(for $i in (1 to fn:ceiling($max div 15)) return $seq, 1, $max) 
return if ($s eq "") then $i else $s

for $x in (1 to 100)
let $y := number($x mod 3 = 0) +2 * number($x mod 5 = 0)
return if($y =0) then $x else ('Fizz','Buzz','Fizz/Buzz')[$y]

Dimitre Novatchev 2 interesting solutions have been added to the wiki page

http://en.wikibooks.org/wiki/XQuery/Fizzbuzz