import Control.Applicative

main :: IO ()
main = do
  xs <- (map read . words) <$> getLine
  putStrLn $ anstostr (qsort xs)

anstostr :: [Int] -> String
anstostr xs = show (xs !! 0) ++ " " ++ show (xs !! 1) ++ " " ++ show (xs !! 2)

qsort :: [Int] -> [Int]
qsort [] = []
qsort (x:xs) = qsort smaller ++ [x] ++ qsort larger
               where
                 smaller = [a | a <- xs, a <= x]
                 larger  = [b | b <- xs, x < b]
  