Problem:
Score : 2400 points

Problem Statement

Takahashi and Aoki love calculating things, so they will play with numbers now.

First, they came up with one positive integer each. Takahashi came up with X, and Aoki came up with Y.
Then, they will enjoy themselves by repeating the following operation K times:

Compute the bitwise AND of the number currently kept by Takahashi and the number currently kept by Aoki. Let Z be the result.

Then, add Z to both of the numbers kept by Takahashi and Aoki.

However, it turns out that even for the two math maniacs this is just too much work.
Could you find the number that would be kept by Takahashi and the one that would be kept by Aoki eventually?

Note that input and output are done in binary.
Especially, X and Y are given as strings S and T of length N and M consisting of 0 and 1, respectively, whose initial characters are guaranteed to be 1.

Constraints

1 ≤ K ≤ 10^6

1 ≤ N,M ≤ 10^6

The initial characters of S and T are 1.

Input

Input is given from Standard Input in the following format:

N M K
S
T

Output

In the first line, print the number that would be kept by Takahashi eventually; in the second line, print the number that would be kept by Aoki eventually.
Those numbers should be represented in binary and printed as strings consisting of 0 and 1 that begin with 1.

Sample Input 1

2 3 3
11
101

Sample Output 1

10000
10010

The values of X and Y after each operation are as follows:

After the first operation: (X,Y)=(4,6).

After the second operation: (X,Y)=(8,10).

After the third operation: (X,Y)=(16,18).

Sample Input 2

5 8 3
10101
10101001

Sample Output 2

100000
10110100

Sample Input 3

10 10 10
1100110011
1011001101

Sample Output 3

10000100000010001000
10000100000000100010

Solution in Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

import Text.Printf
import Data.Bits

main :: IO()
main = do
  [n, m, k] <- map read . words <$> getLine
  s <- getLine
  t <- getLine
  printf "%s" $ slv k (s2b s) (s2b t)

slv :: Integer -> Integer -> Integer -> String
slv 0 s t = unlines [b2s s, b2s t]
slv k s t = slv (k-1) (s + z) (t + z)
  where z = (.&.) s t

s2b :: String -> Integer
s2b str = foldl (\x y -> 2 * x + y) 0 $ map (\x -> read [x]) str

b2s ::Integer -> String
b2s v = b2s' v ""
  where b2s' 0 ret = ret
        b2s' val ret = b2s' (val `div` 2) (modChar val:ret)
        modChar n | n `mod` 2 == 1 = '1'
                  | otherwise = '0'