Haskel wordfrequency ignoring case

import Data.List
import Data.Ord
import Data.Text

main = interact $ (=<<) (\x -> show (Data.List.length x) ++ " - " ++ Data.List.head x ++ "\n")
                . sortBy (flip $ comparing Data.List.length)
                . Data.List.group . Data.List.sort
                . Data.List.words . unpack . toLower . pack