sub F{(/$0/|$0le$_&ord||-1)*ord}for$0(reverse(D..Z,_),C..Z,_){IX!~$0&&print sort({F(*_=b)-F*_=a}A..Z),$/}