$,=$/;print sort{$a-$b}map{//;map 5**$'<<$_,@@}@@=0..<>