import Data.List
z=zipWith
main=interact$unlines.f.lines
f x@(h:_)=sortBy((.(h!)).compare.(h!))x
x!y=last$foldl(#)[0..][1:[sum[1|s/=t]|s<-x]|t<-y]
x#y=scanl1(%)$z(%)x$z(+)y$99:x
x%y=min(1+x)y