Trying to parse out http://www.reddit.com/r/haskell/comments/2cum9p/i_did_a_haskell_fizzbuzz/cjjwzkm in the repl

FizzBuzz.hs

{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE KindSignatures #-}
{-# OPTIONS_GHC -Wall #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}


module FizzBuzz where


import Control.Applicative
import Data.Maybe
import Data.Monoid

instance Monoid a => Monoid (ZipList a) where
    mempty  = pure mempty
    mappend = liftA2 mappend

(>~) :: forall (f :: * -> *) a. (Monoid (f a), Applicative f)
     => Int -> a -> ZipList (f a)
m >~ a = ZipList . cycle $ replicate (m - 1) mempty ++ [pure a]

fizzbuzz :: [String]
fizzbuzz = getZipList $ fromMaybe . show <$> ZipList [(1 :: Int)..] <*> 3 >~ "fizz" <> 5 >~ "buzz"