d%'#'=d d%c=c m@main=getLine>>=putStrLn.zipWith(%)(cycle"##..")>>m