sort{$a-$b}keys%{{map{map{1e-3*int"@_"*1e3*$x/$_,0}1..($x=$_)}1..pop}}