@_=map{[$!++=>$_^$/]}split$¾=>"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r";
$|=++$*;do{($#=>$=)=(rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$º
]<$_[$_-$*][$Æ];print+map{$_->[$|]}@_;select$…,$ƒ,$‡,"$[.$|"}}print$/