$#r=<>-1;map{/
/;$_ lt$'&&($_=$`,++$%,last)for@r=sort{1}sort@r}sort map{/.{7}/;"$' $&"}<>;print$%