sub is_left_slice {
    my ($some, $all) = @_;
    
    $some->[$_] eq $all->[$_] or return 0 for 0 .. $#$some;
    
    return 1;
}