mastodonってそんなに綺麗な構造してるのかなぁ……ソース読んでないけど、ブラウザ上で見る限りでもstyle属性が乱舞してて相当つらそうに見える
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
main=print$[if i`mod`15==0 then "FizzBuzz" else if i`mod`5==0 then "Buzz" else if i`mod`3==0 then "Fizz" else show i|i<-[1..100]]