<>;while(<>){chomp;$d{(length)-2}++}@l=sort {$d{$b}<=>$d{$a}||$b<=>$a}keys %d;print $l[0],"\n"