import Control.Applicative
import Data.Monoid
fizz
= cycle [Nothing
, Nothing
, Just
"Fizz"]buzz
= cycle [Nothing
, Nothing
, Nothing
, Nothing
, Just
"Buzz"]
(<>) = mappend -- for ghc < 7.4
main =
$ catMaybes
$ zipWith3 (\f b n
-> f
<> b
<|> n
) fizz buzz nums
aW1wb3J0IENvbnRyb2wuQXBwbGljYXRpdmUKaW1wb3J0IERhdGEuTWF5YmUKaW1wb3J0IERhdGEuTW9ub2lkCgpmaXp6ID0gY3ljbGUgW05vdGhpbmcsIE5vdGhpbmcsIEp1c3QgIkZpenoiXQpidXp6ID0gY3ljbGUgW05vdGhpbmcsIE5vdGhpbmcsIE5vdGhpbmcsIE5vdGhpbmcsIEp1c3QgIkJ1enoiXQpudW1zID0gbWFwIChKdXN0IC4gc2hvdykgWzEuLjEwMF0KCig8PikgPSBtYXBwZW5kIC0tIGZvciBnaGMgPCA3LjQKCm1haW4gOjogSU8gKCkKbWFpbiA9CiAgbWFwTV8gcHV0U3RyTG4KICAkIGNhdE1heWJlcwogICQgemlwV2l0aDMgKFxmIGIgbiAtPiBmIDw+IGIgPHw+IG4pIGZpenogYnV6eiBudW1zCg==