Fun pointless style

gistfile1.hs

 import Control.Applicative
 import Data.List
 import qualified Data.Map as M
 import Control.Arrow ((&&&), (***))
 import Data.Char(isAlpha, toLower)

 unscramble = curry $ fmap unwords 
                    . uncurry mapM 
                    . (   ( ( fmap head .) 
                          . flip M.lookup 
                          . ($ M.empty) 
                          . foldr (.) id 
                          . (map $ uncurry (M.insertWith (++)) 
                                 . (sort &&& (:[]))) 
                          . filter (all isAlpha) 
                          . lines 
                          . filter (/= '\''))
                      *** ( map ( sort 
                                . filter isAlpha) 
                          . words 
                          . map toLower))

 main = (unscramble <$> readFile "/usr/share/dict/words" 
                    <*> pure "Olny srmat poelpe can raed tihs. I cduol not blveiee taht I cluod aulaclty uesdnatnrd waht I was rdanieg. The pheonmneal pweor of the hmuan mnid")
      >>= maybe (putStrLn "translation failed") putStrLn