$n=<>;@$_=<>=~/^|\d+/g for t,d;print"@{[sort{$t[$b]*$d[$a]<=>$t[$a]*$d[$b]}1..$n]}"