import Data.List
import Control.Arrow
main :: IO ()
main = print $ f "We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris."
f :: String -> [String]
f = map (uncurry (++) . (((++ "=>") . show) *** show) . (head &&& length)) . group . sort