module Game.FizzBuzz(fizzbuzz) where

-- main = do cs <- getContents
--          putStr $ map fizzbuzz cs

fizzbuzz :: [Int] -> [String]
fizzbuzz xs = map fb xs

fb :: Int -> String
fb a 
     | (a `mod` 15) == 0 = "fizzbuzz"
     | (a `mod` 3)  == 0 = "fizz"
     | (a `mod` 5)  == 0 = "buzz"
     | otherwise         = show a