Reverse length string sorter

-- Reads a set of strings separated by newlines from stdin, sorts them
-- by length in descending order, writes them to stdout.

import Data.List
import Data.Function

main :: IO ()
main = do
  input <- getContents
  mapM_ putStrLn $ sortBy (flip (on compare length)) (lines input)