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