-- ITP1_2_C
-- Lemmas -------------------------
intstostrs :: [Integer] -> [String]
intstostrs xs = map show xs
strstoints :: [String] -> [Integer]
strstoints xs =  map read xs
iotoints input = (strstoints (words input))
intstoioLn output = putStrLn $ unwords $ intstostrs output 
-- -------------------------------

qsort :: [Integer] -> [Integer]
qsort [] = []
qsort (piv:xs) = qsort smaller ++ [piv] ++ qsort larger
    where
      smaller = [x | x <- xs, x <= piv ]
      larger = [x | x <- xs, piv < x]

main = do
  str <- getLine
  intstoioLn $ qsort $ iotoints str