Fizz Buzz in Haskell

fizzbuzz.hs

fizzbuzz = [f n | n <- [1..]]
           where
           f x
             | x `mod` 15 == 0 = "Fizz Buzz"
             | x `mod`  5 == 0 = "Buzz"
             | x `mod`  3 == 0 = "Fizz"
             | otherwise       = show (fromIntegral x)

main = do print (take 60 fizzbuzz)