Fizz Buzz by Haskell

fizz     = cycle [ "", "", "Fizz" ]
buzz     = cycle [ "", "", "", "", "Buzz" ]
fizzbuzz = zipWith ( \ n s -> if s /= "" then s else (show n) ) [1..] $ zipWith (++) fizz buzz

main = mapM_ putStrLn $ take 20 fizzbuzz

もう一段階、簡単になりそうな気がするんだけど。今の時点では思いつかない。