main=interact$unlines.s((s(\a b->max[a..'S'][b]!!0).).zipWith max).lines
s=scanl1