sort [] = []
sort (x:xs) = sort small ++ [x] ++ sort large
  where
    small = [a | a <- xs, a <= x]
    large = [a | a <- xs, a > x]
main = getLine >>= putStrLn . unwords . (map show) . sort . (map (\n -> read n :: Int)) . words