@_ = map { [ $!++ => $_ ^ $/ ] } split $╛ => "\@\x7Fy~*kde~box*Zoxf*Bkiaox";
$\ = "\r";
$| = ++$*;
do { ( $# => $= ) = ( rand @_ => rand @_ ); @_[ $#, $= ] = @_[ $=, $# ] }
  for ( $* .. @_ );
for $: ( $| .. @_ - $| ) {
    for ( $| .. @_ - $: ) {
        @_[ $_ - $|, $_ ] = @_[ $_ => $_ - $* ]
          if $_[$_][ $&#9553; ] < $_[ $_ - $* ][$&#9566;];
        print +map { $_->[$|] } @_;
        select $à, $â, $ç, "$[.$|";
    }
}
print $/