import Data.List

main = do
  line <- getLine
  let input = (map read $ words line :: [Int])
      insert x ln 
        | ln == []        = [x]
        | (head ln) > x   = x : ln
        | otherwise       = (head ln) : (insert x $ tail ln)
      sort src dst
        | src == []  = dst
        | otherwise  = sort (tail src) $ (insert $ head src) dst :: [Int]
    in putStrLn $ intercalate " " $ map show $ sort input []

