import Data.List main = getContents >>= putStrLn . unwords . map show . yukisort . map read . tail . words yukisort :: [Integer] -> [Integer] yukisort (a0:as) = foldl (\acc a -> insert a acc) [a0] as