gistfile1.hs

import qualified Data.ByteString.Char8 as BS
import Data.Ord
import Data.List
import Data.Function
import System

most_anagrams ws = sortBy (flip $ comparing length) $ groupBy (\a b -> fst a == fst b) $ sortBy (comparing fst) $ zip (map BS.sort ws) ws

main = do (arg:_) <- getArgs
          d <- BS.readFile arg
          print $ take 3 $ most_anagrams $ BS.lines d