sort.hs import System import List main = do cs <- getContents putStr $ sortLines cs sortLines :: String -> String sortLines cs = unlines $ map sort $ lines cs uniq.hs import System import List main = do cs <- getContents putStr $ groupLine…