Problem:
Counting Sort

Counting sort can be used for sorting elements in an array which each of the n input elements is an integer in the range 0 to k. The idea of counting sort is to determine, for each input element x, the number of elements less than x as C[x]. This information can be used to place element x directly into its position in the output array B. This scheme must be modified to handle the situation in which several elements have the same value. Please see the following pseudocode for the detail:

Counting-Sort(A, B, k)
1 for i = 0 to k
2 do C[i] = 0
3 for j = 1 to length[A]
4 do C[A[j]] = C[A[j]]+1
5 /* C[i] now contains the number of elements equal to i */
6 for i = 1 to k
7 do C[i] = C[i] + C[i-1]
8 /* C[i] now contains the number of elements less than or equal to i */
9 for j = length[A] downto 1
10 do B[C[A[j]]] = A[j]
11 C[A[j]] = C[A[j]]-1

Write a program which sorts elements of given array ascending order based on the counting sort.

Input

The first line of the input includes an integer n, the number of elements in the sequence.

In the second line, n elements of the sequence are given separated by spaces characters.

Output

Print the sorted sequence. Two contiguous elements of the sequence should be separated by a space character.

Constraints

1 ≤ n ≤ 2,000,000

0 ≤ A[i] ≤ 10,000

Sample Input 1

7
2 5 1 3 2 3 0

Sample Output 1

0 1 2 2 3 3 5

Solution in Haskell (judge verdict: Memory Limit Exceeded)

import Control.Applicative
import Control.Monad
import Data.Word
import Data.Array.IO

main = do
        n <- readLn
        list <- map read.words<$>getLine
        arr <- newListArray (1,n) list
        b <- countingSort 10000 arr
        putStrLn.unwords.map show =<< getElems b

countingSort :: Word32 -> IOUArray Word32 Word32 -> IO (IOUArray Word32 Word32)
countingSort k arr = do
        countArr <- newArray (0,k) 0 :: IO (IOUArray Word32 Word32)
        countFreq countArr arr
        accumulateCount countArr
        writeElems countArr arr
        where
            countFreq :: IOUArray Word32 Word32 -> IOUArray Word32 Word32 -> IO ()
            countFreq ca a = do
                (s,g) <- getBounds a
                forM_ [s..g] $ \j -> readArray a j >>= \i -> modifyArray ca i (+1)
            accumulateCount ca = forM_ [1..k] $ \i -> do
                e' <- readArray ca (i-1)
                modifyArray ca i (+e')
            writeElems :: IOUArray Word32 Word32 -> IOUArray Word32 Word32 -> IO (IOUArray Word32 Word32)
            writeElems ca a = do
                (s,g) <- getBounds a
                b <- newArray_ (s,g)
                forM_ [g,(g-1)..1] $ \j -> do
                    eA <- readArray a j
                    eC <- readArray ca eA
                    writeArray b eC eA
                    modifyArray ca eA (subtract 1)
                return b


modifyArray arr i f = do
        e <- readArray arr i
        writeArray arr i (f e)