#!/usr/bin/env stack
-- stack --resolver lts-12.5 script

import Data.List
import Data.Function

main = interact $ unlines . sortBy (compare `on` length) . lines