sub aeq {
    my ($first, $second, @comp) = @_;
    return 0 if @{$first} != @{$second};
    @comp = grep {$first->[$_] ne $second->[$_]} 0..$#$first;
    return not @comp;
}