main=interact$unlines.s((s(!).).zipWith max).lines 'K'!' '='K' _!c=c s=scanl1