parseInts :: String -> [Int]
parseInts line = map (\x -> read x :: Int) $ words line

sortInts :: [Int] -> [Int]
sortInts [] = []
sortInts (x:xs) =
    sortInts lower ++ [x] ++ sortInts upper
    where
        lower = [l | l <- xs, l <= x]
        upper = [u | u <- xs, x <  u]

intsToString :: [Int] -> String
intsToString = unwords.map show

main :: IO ()
main = do
    line <- getLine
    let
        nums = sortInts $ parseInts line
    putStrLn $ intsToString nums