import Data.List (intercalate)

main = do
    [h, w, a, b] <- map read . words <$> getLine :: IO [Int]
    let m = [[if (i < b) == (j < a) then 0 else 1 | j <- [0..w - 1]] | i <- [0..h - 1]]
    mapM_ (putStrLn . intercalate " " . map show) m