import System.IO (readFile) import System.Environment (getArgs) main :: IO () main = do [_, _, file] <- getArgs (_:numbers) <- map (read :: String -> Int) . lines <$> readFile file putStrLn $ show (minimum numbers) ++ " " ++ show (maximum numbers)