solve3 :: [Int] -> String
solve3 abc = unwords . map show $ qsort abc

qsort [] = []
qsort (n:ns) = qsort left ++ [n] ++ qsort right
  where
    left = filter (\m -> m <= n) ns
    right = filter (\m -> n < m) ns

main = do
  temp <- getLine
  let abc = map read . words $ temp
  putStrLn $ solve3 abc

