Problem:
Score : 600 points

Problem Statement

You are given an integer sequence of length n+1, a_1,a_2,...,a_{n+1}, which consists of the n integers 1,...,n.
It is known that each of the n integers 1,...,n appears at least once in this sequence.

For each integer k=1,...,n+1, find the number of the different subsequences (not necessarily contiguous) of the given sequence with length k, modulo 10^9+7.

Notes

If the contents of two subsequences are the same, they are not separately counted even if they originate from different positions in the original sequence.

A subsequence of a sequence a with length k is a sequence obtained by selecting k of the elements of a and arranging them without changing their relative order. For example, the sequences 1,3,5 and 1,2,3 are subsequences of 1,2,3,4,5, while 3,1,2 and 1,10,100 are not.

Constraints

1 \leq n \leq 10^5

1 \leq a_i \leq n

Each of the integers 1,...,n appears in the sequence.

n and a_i are integers.

Input

Input is given from Standard Input in the following format:

n
a_1 a_2 ... a_{n+1}

Output

Print n+1 lines.
The k-th line should contain the number of the different subsequences of the given sequence with length k, modulo 10^9+7.

Sample Input 1

3
1 2 1 3

Sample Output 1

3
5
4
1

There are three subsequences with length 1: 1 and 2 and 3.

There are five subsequences with length 2: 1,1 and 1,2 and 1,3 and 2,1 and 2,3.

There are four subsequences with length 3: 1,1,3 and 1,2,1 and 1,2,3 and 2,1,3.

There is one subsequence with length 4: 1,2,1,3.

Sample Input 2

1
1 1

Sample Output 2

1
1

There is one subsequence with length 1: 1.

There is one subsequence with length 2: 1,1.

Sample Input 3

32
29 19 7 10 26 32 27 4 11 20 2 8 16 23 5 14 6 12 17 22 18 30 28 24 15 1 25 3 13 21 19 31 9

Sample Output 3

32
525
5453
40919
237336
1107568
4272048
13884156
38567100
92561040
193536720
354817320
573166440
818809200
37158313
166803103
166803103
37158313
818809200
573166440
354817320
193536720
92561040
38567100
13884156
4272048
1107568
237336
40920
5456
528
33
1

Be sure to print the numbers modulo 10^9+7.

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Control.Monad
import Data.Array.IO
import Data.IORef

main = do
  n <- readLn :: IO Int
  as <- getLine >>= return . map read . words :: IO [Int]

  memo <- newArray (1,n) 0 :: IO (IOUArray Int Int)
  double_pos <- newIORef (0,0) :: IO (IORef (Int,Int))

  forM_ (zip [1..n+1] as) $ \(i,a) -> do
    m <- readArray memo a
    if m >= 1 then
      writeIORef double_pos (m, i)
      else
      writeArray memo a i
        
  (fs, sn) <- readIORef double_pos 

  let rl = (fs-1) + (n+1-sn)

  var1 <- newIORef 1 :: IO (IORef Integer)
  var2 <- newIORef 1 :: IO (IORef Integer)

  forM_ [1..n+1] $ \k -> do
    modifyIORef var1 (\x -> (x * div_modp (fromIntegral $ n+2-k) (fromIntegral k) (10^9+7)) `mod` (10^9+7))
    if k == 1 then
      return ()
      else if rl + 1 - k < 0 then
      writeIORef var2 0
      else
      modifyIORef var2 (\x -> (x * div_modp (fromIntegral $ rl+1-(k-1)) (fromIntegral $ k-1) (10^9+7)) `mod` (10^9+7))
      

    print =<< do
      a1 <- readIORef var1
      a2 <- readIORef var2
      return $ a1 - a2
    

  where
    factorial n
      | n <= 1 = 1 
      | otherwise = n * factorial (n-1)
      
    combination n k
      | k > n = 0
      | k == 0 = 1
      | otherwise = ((div_modp n k (10^9+7)) * (combination (n-1) (k-1))) `mod` (10^9+7)

    div_modp a b m = (a * (power_modp b (m-2) m)) `mod` m

    power_modp a 0 m = 1
    power_modp a 1 m = a `mod` m
    power_modp a p m = ((power'^2 `mod` m) * (if mod p 2 == 0 then 1 else a)) `mod` m
      where power' = power_modp a (div p 2) m