import List main=interact$unlines.foldl(#)[].sortBy((.f).compare.f).lines f=(0-).read.last.words x#b=x++[shows(1+sum[1|a<-x,f a