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