Problem:
Score : 300 points

Problem Statement

We have a square grid with H rows and W columns.
Snuke wants to write 0 or 1 in each of the squares.
Here, all of the following conditions have to be satisfied:

For every row, the smaller of the following is A: the number of 0s contained in the row, and the number of 1s contained in the row. (If these two numbers are equal, “the smaller” should be read as “either”.)

For every column, the smaller of the following is B: the number of 0s contained in the column, and the number of 1s contained in the column.

Determine if these conditions can be satisfied by writing 0 or 1 in each of the squares. If the answer is yes, show one way to fill the squares so that the conditions are satisfied.

Constraints

1 \leq H,W \leq 1000

0 \leq A

2 \times A \leq W

0 \leq B

2 \times B \leq H

All values in input are integers.

Input

Input is given from Standard Input in the following format:

H W A B

Output

If the conditions cannot be satisfied by writing 0 or 1 in each of the squares, print -1.

If the conditions can be satisfied, print one way to fill the squares so that the conditions are satisfied, in the following format:

s_{11}s_{12}\cdots s_{1W}
s_{21}s_{22}\cdots s_{2W}
\vdots
s_{H1}s_{H2}\cdots s_{HW}

Here s_{ij} is the digit written in the square at the i-th row from the top and the j-th column from the left in the grid.

If multiple solutions exist, printing any of them will be accepted.

Sample Input 1

3 3 1 1

Sample Output 1

100
010
001

Every row contains two 0s and one 1, so the first condition is satisfied.
Also, every column contains two 0s and one 1, so the second condition is satisfied.

Sample Input 2

1 5 2 0

Sample Output 2

01010

Solution in Haskell (GHC 7.10.3) (judge verdict: Runtime Error)

import Control.Monad

nPr :: Integral a => a -> a -> a
nPr 0 _ = 0
nPr _ 0 = 0
nPr n r = product [(n - r + 1)..n]

nCr :: Integral a => a -> a -> a
nCr 0 _ = 1
nCr _ 0 = 1
nCr n r = nPr n r `div` product [1..r]

main :: IO ()
main = do
    [h,w,a,b] <- map read . words <$> getLine :: IO [Int]
    if (b == 0 || h `nCr` b >= w)
       && (a == 0 || w `nCr` a >= h)
       then
          forM_ [0..h-1] (\i -> do
            forM_ [0..w-1] (\j -> do
                let bgn = i `div` a * a
                    end = bgn + a - 1
                if bgn <= j && j <= end then putChar '1' else putChar '0'
                if j == w-1 then putStrLn "" else return ()
                ))
       else putStrLn "No"