sub is_deranged {
  my $arr = shift;
  $arr->[ $_ ] == $_ and return for 0..$#$arr;
  return 1;
}