main :: IO ()
main = do
    line <- getLine
    let nums = map (\n -> read n :: Int) $ words line
    putStrLn . unwords $ map show $ qsort nums

qsort :: Ord a => [a] -> [a]
qsort []     = []
qsort (x:xs) = qsort [l | l <- xs, l < x] ++ [x] ++ qsort [r | r <- xs, x < r]

