$s=9;for(<>){chop;$w=$_;$l=y///c;(5<grep{1+index$w,$_}split//,'abcdef')&&$s>$l&&do{$s=$l;$n=$w}}print$n