Problem:
Score : 700 points

Problem Statement

We have a grid with H rows and W columns of squares.
We will represent the square at the i-th row from the top and j-th column from the left as (i,\ j).
Also, we will define the distance between the squares (i_1,\ j_1) and (i_2,\ j_2) as |i_1 - i_2| + |j_1 - j_2|.

Snuke is painting each square in red, yellow, green or blue.
Here, for a given positive integer d, he wants to satisfy the following condition:

No two squares with distance exactly d have the same color.

Find a way to paint the squares satisfying the condition.
It can be shown that a solution always exists.

Constraints

2 ≤ H, W ≤ 500

1 ≤ d ≤ H + W - 2

Input

Input is given from Standard Input in the following format:

H W d

Output

Print a way to paint the squares satisfying the condition, in the following format. If the square (i,\ j) is painted in red, yellow, green or blue, c_{ij} should be R, Y, G or B, respectively.

c_{11}c_{12}...c_{1W}
:
c_{H1}c_{H2}...c_{HW}

Sample Input 1

2 2 1

Sample Output 1

RY
GR

There are four pairs of squares with distance exactly 1.
As shown below, no two such squares have the same color.

(1,\ 1), (1,\ 2) : R, Y

(1,\ 2), (2,\ 2) : Y, R

(2,\ 2), (2,\ 1) : R, G

(2,\ 1), (1,\ 1) : G, R

Sample Input 2

2 3 2

Sample Output 2

RYB
RGB

There are six pairs of squares with distance exactly 2.
As shown below, no two such squares have the same color.

(1,\ 1) , (1,\ 3) : R , B

(1,\ 3) , (2,\ 2) : B , G

(2,\ 2) , (1,\ 1) : G , R

(2,\ 1) , (2,\ 3) : R , B

(2,\ 3) , (1,\ 2) : B , Y

(1,\ 2) , (2,\ 1) : Y , R

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

create::Int->Int->Int->[String]
create h w d = case div d 2 of
              1 ->[[ odd_func d (i,j)|j<-[1..w]]|i<-[1..h]]
              0 ->[[even_func d (i,j)|j<-[1..w]]|i<-[1..h]]

odd_func::Int->(Int,Int)->Char
odd_func d (i,j) = case (mod (div i d) 2,mod (div j d) 2) of
                   (0,0)->'R'
                   (0,1)->'Y'
                   (1,0)->'G'
                   (1,1)->'B'

even_func::Int->(Int,Int)->Char
even_func d (i,j) = case (mod (div i d) 2,mod (div j (d-1)) 2) of
                   (0,0)->'R'
                   (0,1)->'Y'
                   (1,0)->'G'
                   (1,1)->'B'

main::IO()
main=do
  datc<-getLine
  let  h:w:d:[]=map read (words datc)
  prints (create h w d)

prints::[String]->IO()
prints []=return ()
prints (x:xs)=do
  putStr x
  putStr "\n"
  prints xs