fizzbuzz

main = putStrLn $ unlines $ map fizzbuzz [1..30]

fizzbuzz :: Int -> String
fizzbuzz x
    | x`mod`15 == 0 = "fizzbuzz"
    | x`mod` 3 == 0 = "fizz"
    | x`mod` 5 == 0 = "buzz"
    | otherwise     = show x

Mが書いているのを見てやってみた。
...........何が面白いんだ？