sub o{ ($c,*w,$")=@_;sub t{eval"y/\Q@$c\E/-ÿ/";$_}sort{t($_=$a)cmp t$_=$b}@w }