mjeff7

## Main.hs
module Main where

import Data.Monoid ((<>))
import Data.Maybe (fromMaybe)
import Control.Applicative (liftA2)

main :: IO ()
main = print $ take 100 $ fizzBuzzIntString <$> [1..]

fizzBuzzIntString :: Int -> String
	module Main where

	import Data.Monoid ((<>))
	import Data.Maybe (fromMaybe)
	import Control.Applicative (liftA2)

	main :: IO ()
	main = print $ take 100 $ fizzBuzzIntString <$> [1..]

	fizzBuzzIntString :: Int -> String