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