downQsort :: [Int] -> [Int]
downQsort [] = []
downQsort (p:xs) = downQsort gt ++ [p] ++ downQsort lt
  where gt = [x | x <- xs, x >= p]
        lt = [x | x <- xs, x < p ]


main :: IO()
main = do
  line <- getLine
  let line' = map read (words line) ::[Int]
  putStrLn $ unwords $ map show $ downQsort line'