Profile
cobodo cobodo@qiitadon.com
module Main where
main :: IO ()
main = print $ [f n | n <- [1..100]]
where
f n
| n `mod` 15 == 0 = "FizzBuzz"
| n `mod` 5 == 0 = "Buzz"
| n `mod` 3 == 0 = "Fizz"
| otherwise = show n