main=interact$unlines.scanl1(' '%).lines
(p%(c:d))(a:b)=max[a][c|a<'.',p<'.']++(a%d)b
('.'%y)x=x
(p%y)x=x++y