import Data.List

main = do
    -- r <- readLn -- 入力が一行に一文字の場合
    a <- map read . words <$> getLine -- 一行に入力が複数ある場合
    -- putStrLn $ show $ solve a b -- showの返り値がString型の場合
    -- putStrLn $ solve a b

    putStrLn $ show $ solve $ sort a -- showの返り値がString型の場合

solve :: [Int] -> Int
solve [a, b, _] = a + b


{-- その他 備忘録
    {{{ 型変換
       int 2 float: fromIntegral
       float 2 int: round
       int 2 string: show
    }}}

    {{{ モジュール
    Data.List: sort
    }}}
--}
