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