module Main where

    import Debug.Trace
    import Data.List
    
    solve :: Int -> Int -> Int -> String
    solve a b c = iter $ sort (a:b:c:[]) where
        iter [] = ""
        iter (x:xs) = show x ++ " " ++ iter xs
       
    readLine:: IO [Int]
    readLine = fmap (map read . words) getLine
    
    main :: IO() 
    main = do
        [a, b, c] <- readLine
        let ans = solve a b c
        putStrLn ans
    
