Problem:
Score : 500 points

Problem Statement

You are given two integers A and B.

Print a grid where each square is painted white or black that satisfies the following conditions, in the format specified in Output section:

Let the size of the grid be h \times w (h vertical, w horizontal). Both h and w are at most 100.

The set of the squares painted white is divided into exactly A connected components.

The set of the squares painted black is divided into exactly B connected components.

It can be proved that there always exist one or more solutions under the conditions specified in Constraints section.
If there are multiple solutions, any of them may be printed.

Notes

Two squares painted white, c_1 and c_2, are called connected when the square c_2 can be reached from the square c_1 passing only white squares by repeatedly moving up, down, left or right to an adjacent square.

A set of squares painted white, S, forms a connected component when the following conditions are met:

Any two squares in S are connected.

No pair of a square painted white that is not included in S and a square included in S is connected.

A connected component of squares painted black is defined similarly.

Constraints

1 \leq A \leq 500

1 \leq B \leq 500

Input

Input is given from Standard Input in the following format:

A B

Output

Output should be in the following format:

In the first line, print integers h and w representing the size of the grid you constructed, with a space in between.

Then, print h more lines. The i-th (1 \leq i \leq h) of these lines should contain a string s_i as follows:

If the square at the i-th row and j-th column (1 \leq j \leq w) in the grid is painted white, the j-th character in s_i should be ..

If the square at the i-th row and j-th column (1 \leq j \leq w) in the grid is painted black, the j-th character in s_i should be #.

Sample Input 1

2 3

Sample Output 1

3 3
##.
..#
#.#

This output corresponds to the grid below:

Sample Input 2

7 8

Sample Output 2

3 5
#.#.#
.#.#.
#.#.#

Sample Input 3

1 1

Sample Output 3

4 2
..
#.
##
##

Sample Input 4

3 14

Sample Output 4

8 18
..................
..................
....##.......####.
....#.#.....#.....
...#...#....#.....
..#.###.#...#.....
.#.......#..#.....
#.........#..####.

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

{-# LANGUAGE BangPatterns, MultiWayIf #-}
import Control.Arrow
import Control.Monad.Fix
import Data.Foldable
import qualified Data.Vector as V
import qualified Data.Vector.Unboxed as VU
import qualified Data.Vector.Unboxed.Mutable as VUM
import qualified Data.ByteString.Char8 as B
import Data.ByteString.Internal (accursedUnutterablePerformIO)
import Debug.Trace

w = 50
h = 25

solve :: Int -> Int -> V.Vector (VU.Vector Bool)
solve !b !a = V.concat [whiteArea, blackArea]
 where
  whiteArea =
    let
      blackH = (a - 1) `div` (w `div` 2)
      blackW = (a - 1) `mod` (w `div` 2)
      line   = VU.replicate w False
    in
      V.replicate h line
        V.// [ ( i * 2
               , if i < blackH
                 then
                   line VU.// [ (j, True) | j <- [0 .. w - 1], even j ]
                 else
                   line VU.// [ (j, True) | j <- [0 .. blackW * 2 - 1], even j ]
               )
             | i <- [0 .. blackH]
             ]
  blackArea =
    let
      whiteH = (b - 1) `div` (w `div` 2)
      whiteW = (b - 1) `mod` (w `div` 2)
      line   = VU.replicate w True
    in
      V.replicate h line
        V.// [ ( i * 2 + 1
               , if i < whiteH
                 then
                   line VU.// [ (j, False) | j <- [0 .. w - 1], even j ]
                 else
                   line
                     VU.// [ (j, False) | j <- [0 .. whiteW * 2 - 1], even j ]
               )
             | i <- [0 .. whiteH]
             ]

main = do
  let readInt = fmap (second B.tail) . B.readInt

  (a, b) <-
    (\vec -> (vec VU.! 0, vec VU.! 1)) . VU.unfoldrN 2 readInt <$> B.getLine

  let r = solve a b
  putStrLn $ show w ++ " " ++ show (2 * h)
  V.forM_ r $ \vec -> do
    VU.forM_ vec $ \b -> do
      putStr $ if b then "#" else "."
    putStrLn ""