$_=<>;print"$1: ",length($2),"\n"while(s/([^ ])(.*\1)/ \2/)