コンパイル通るか知りません こんな感じのほうが人間に優しいのでは…！

FizzBuzz.hs

fizzbuzz = zipWith max (map show [0..]) fb
           where
             fb = zipWith (++) f b
             f = cycle ["Fizz", "", ""]
             b = cycle ["Buzz", "", "", "", ""]
main = mapM_ putStrLn $ tail $ fizzBuzz

StringとMaybeは同じ型ではないのでauxの定義で型エラーがおきるのではないでしょうか。コンパイルしてませんが。

ほんとですね、うっかりしてました。

ゴルフ厨だ～ http://twitter.com/#!/notogawa/status/123416323702259712