$_[$_]=5**($_/$N|0)<<$_%$N for 0..($N=<>+1)**2-1;
$,=$/;
print sort{$a<=>$b}@_