sub f{$p[$_]=$_-($p[$_]||$_)?f(local$_=$p[$_]):$_}@@=1..<>;map{($a,$b)=sort{$n[$a]-$n[$b]||$b-$a}map f,glob;$n[$p[$a]=$b]+=$a-$b&&$n[$a]+1}<>;print f,$/for@@