99 Bottles of Beer on Haskell

99bottles.hs

import Control.Monad


show' :: Int -> String
show' x
	| x == 0    = "no more bottles"
	| x == 1    = "1 bottle"
	| otherwise = show x ++ " bottles"
	
main = forM [99,98..0] (\x -> putStrLn $
	if x == 0
		then
			"No more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall."
		else
			show' x ++ " of beer on the wall, " ++ show' x ++ " of beer.\nTake one down and pass it around, " ++ show' (x-1) ++ "of beer on the wall.\n" )