import Control.Applicative
import Data.List

main :: IO ()
main = do  
  x <- sort <$> getInts
  let showStr = intersperse " " (map toString x) 
  let forPrint  = foldl (++) "" showStr 
  putStrLn forPrint 
  
getInts = do 
  x <- getLine 
  let y = (map$toInt)$words x
  return y

toInt :: (String -> Int)
toInt x = read x :: Int

toString :: (Int -> String)
toString x = show x :: String  
