fizzbuzzers = [(3,"fizz"), (5,"buzz"), (7, "baz")] fizzbuzz k = let str = concat [s | (n,s) <- fizzbuzzers, k `mod` n == 0] if str == "" then s

fizzbuzzers = [(3,"fizz"), (5,"buzz"), (7, "baz")] fizzbuzz k = let str = concat [s | (n,s) <- fizzbuzzers, k `mod` n == 0] if str == "" then show k else str putStrLn $ intercalate "\n" $ map fizzbuzz [1..110] It's not that bad.