print(($a,$_,@a)=<>,$/,/-/?/-.$/?'E D C B A':'B D C A E':$a)