Select Code to Download

module Main where

...
showOutput = id
process    = id
readInput  = id

module Main where

...

show1 key count = (unwords [key, show count] :)
accumulate hash key = Map.insertWith (+) key 1 hash

module Main (main) where

...
control f  = readFiles >>= writeIndex . f
readFiles  = getArgs >>= liftM concat . mapM readFile
writeIndex = writeFile "words.index"