<>;@a=???$_:sort{$b<=>$a}map{int eval}<{@a[$"=',',-1]}{,-,\\*,/}+$_>for glob<>;printf@a