m@main=getLine>>=putStrLn.zipWith(&)(cycle"##..")>>m
p&'#'=p
_&c=c