@list=split("",<>);
print join("",sort { $b <=> $a} @list);