FizzBuzz by Haskell

fizzbuzz.hs

fizzbuzz :: Int -> [String]
fizzbuzz n = map fb [1..n]
  where fb x
         | x `mod` 15 == 0 = "fizzbuzz"
         | x `mod` 5 == 0  = "buzz"
         | x `mod` 3 == 0  = "fizz"
         | otherwise = show x