sub seq_values {
        my $seq = shift;
        seq_values_scalar( seq_map( $seq, sub { [@_] } ) );
    }

    sub seq_values_scalar {
        my $seq = shift;
        my @values;
        seq_foreach( $seq, sub { push @values, @_ } );
        return @values;
    }