import Control.Monad (replicateM) import Data.List (sort) main :: IO () main = putStr . (!! 1) . sort =<< replicateM 3 getLine