by@henkma
AC
1015ms
main=interact$unlines.s((s(\a b->max[a..'S'][b]!!0).).zipWith max).lines s=scanl1
T K
T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T KKKKKKKKT