import Data.List

main=do
  (a:b:_)<-map read.words<$>getLine::IO[Int]
  putStr.unlines.sp$solve a b
solve a b = mk '#' '.' 50 (a-1) ++ (reverse $ mk '.' '#' 50 (b-1))

sp "" = []
sp s = (take 100 s) : (sp $ drop 100 s)

mk _ _ 0 _ = ""
mk u v l n
  | n >= 50 = (take 100 $ cycle [u,v]) ++ replicate 100 u ++ mk u v (l-2) (n-50)
  | n == 0 = replicate 200 u ++ mk u v (l-2) 0
  | True = take 100 ((take (n*2) $ cycle [u,v]) ++ replicate 100 u) ++ mk u v (l-2) 0