Пользователь вводит 4 числа, надо найти сумму минимального и максимального из нихmin(a1,a2,a3,a4)max(a,1,a2,a3,a4)

Напишу на Haskell.

• main :: IO ()
• main = do
• ks <- mapM (const (read <$> getLine :: IO Int)) [1. . 4]
• print $ minimum ks + maximum ks