#include <iostream>
#include <cmath>
#include <algorithm>

using namespace std;

int x[100000];
int n, k, b;
int drbNegativ;

void Beolvas(){
    cin>>n>>k>>b;
    for(int i = 0; i < n; i++)cin>>x[i];
}

int Negativdrb(){
    int drb = 0;
    for(int i = 0; i < n; i++){
        if(x[i] < 0)drb++;
    }
    return drb;
}

int* LegnagyobbNegativ(){
    int *a = upper_bound(x, x+n, 0)-1;
    for(int *p = a; p >= x; p--){
        if(*p < 0)return p;
    }
    return x;
}

void Lepes(){
    if(drbNegativ > b){
        int *a = LegnagyobbNegativ();
        ++*a;
        if(*a == 0)drbNegativ--;
        for(int *p = a; p < x+n-1; p++){
            if(*p > *(p+1))swap(*p,*(p+1));
            else return;
        }
        return;
    }
    int *a2 = upper_bound(x, x+n, -1);
    ++*a2;
    for(int *p = a2; p < x+n-1; p++){
        if(*p > *(p+1))swap(*p,*(p+1));
        else return;
    }
}

void Kiirat(){
    if(drbNegativ != b){
        cout<<(-1);
        return;
    }
    long long int p = 1;
    for(int i = 0; i < n; i++){
        p *= x[i];
    }
    cout<<(p % (int(10e9)-7));
}

int main(){
    Beolvas();
    sort(x, x+n);
    drbNegativ = Negativdrb();
    while(k > 0){
        Lepes();
        k--;
    }
    Kiirat();
    return 0;
}