#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
ll INF = 1e9+7;
ll MOD = 998244353;
typedef pair<ll,ll> ii;
#define iii pair<ii,ll>
#define f(i,a,b) for(ll i = a;i < b;i++)
#define rf(i,a,b) for(long long i=a;i>=b;i--)
#define fastio ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
#define w(t) while(t--)
#define c(n); cin>>n;
#define p(n) cout<<n;
#define pl(n) cout<<n<<endl;
#define ps(n); cout<<n<<" ";
#define F first
#define S second
#define pb(a) push_back(a)
#define all(x) (x).begin(), (x).end()
#define ull unsigned long long
#define vll vector<ll>
#define vii vector<ii>
#define mkp make_pair
#define ld long double
#define arrin(a,n) f(i,0,n){cin>>a[i];}
#define arrout(a,n) f(i,0,n){cout<<a[i]<<" ";}
#define printclock cerr<<"Time : "<<*(ld)clock()/(ld)CLOCKS_PER_SEC<<"ms\n";
#define PI (2*acos(0))
#define EPS 1e-18
const long long N = 1e5+5;
const long long M = 1e6+5;
vll dist,taken;
vector<vll> adj;
vector<vii> adj2;
priority_queue<ii,vector<ii>, greater<ii> > pq;
ll bit[N]={0};
ll an[N][35];
ll depth[N]={0};
ll siz;
ll res = 0;
ll mycbrt(ll num){ll l = 1,r = 1000000;ll ans = 0;while(l <= r){ll mid = (l+r)/2;if(mid * mid * mid <= num){l = mid + 1;ans = max(ans,mid);}else{r = mid - 1;}}return ans;}
ll lcm(ll a,ll b){return (a * b) / __gcd(a,b);}
ll gcd(ll a,ll b){return __gcd(a,b);}
ll power(ll a,ll b){if(b == 0)return 1;if(b == 1)return a;ll ans = power(a,b/2) % MOD;ans *= ans;ans %= MOD;if(b % 2 == 1)ans *= a;return ans%MOD;}
ll inverse(ll x){x%=MOD;return power(x,MOD-2);}
void BITup(ll k, ll x){while(k <= siz){bit[k]+=x;k += k & -k;}}
ll BITq(ll k){ll s=0;while(k>=1){s+=bit[k];k -= k &-k;}return s;}
struct point{ll x,y,idx;};
void dijkstra(ll s){pq.push(ii(0,s));dist[s] = 0;while(!pq.empty()){ii f = pq.top();pq.pop();ll w = f.F;ll u = f.S;if(w > dist[u]){continue;}for(auto v:adj2[u]){if(dist[u] + v.S < dist[v.F]){dist[v.F] = dist[u] + v.S;pq.push(ii(dist[v.F],v.F));}}}}
void prim(ll edge) {taken[edge] = 1;for(auto v:adj2[edge]) {if (taken[v.first]==0)pq.push(ii(v.second, v.first));}}
ll mst(ll s){taken.assign(N, 0);prim(s);ll cost = 0;while(!pq.empty()){ii front = pq.top();pq.pop();ll w = front.first;ll u = front.second;if(taken[u]==0)cost += w;prim(u);}return cost;}
void bfs01(ll s){deque<ll>q;dist[s] = 0;q.push_back(s);while(!q.empty()){ll v = q.front();q.pop_front();for(auto x:adj2[v]){if(dist[x.F] > dist[v] + x.S){dist[x.F] = dist[v] + x.S;if(x.S == 0){q.push_front(x.F);}else{q.push_back(x.F);}}}}}
void build(ll s,ll p){an[s][0] = p;f(i,1,35){an[s][i] = an[an[s][i-1]][i-1];}for(auto x:adj[s]){if(x != p){depth[x] = depth[s] + 1;build(x,s);}}}
ll kth(ll x,ll k){ll ans = x;if(depth[x] < k){return -1;}ll pos = 0;while(k > 0){if(k % 2){ans = an[ans][pos];}pos++;k /= 2;}return ans;}
ll lca(ll a,ll b){if(depth[a] > depth[b]){swap(a,b);}b = kth(b,abs(depth[a] - depth[b]));if(a == b){return a;}for(ll i = 34;i >= 0;i--){if(an[a][i] == an[b][i]){continue;}a = an[a][i];b = an[b][i];}return an[a][0];}
void YESNO(ll a){if(!!a){pl("YES");}else{pl("NO");}}
void filesin(void){freopen("hand_05.txt","r",stdin);}
void filesout(void){freopen("tracing.out","w",stdout);}
///I hope I will get uprating and don't make mistakes
///I will never stop programming
///sqrt(-1) Love C++
///Please don't hack me
///@TheofanisOrfanou Theo830
///Training
int main(void){
    fastio;
    ll n,k;
    cin>>n>>k;
    ll arr[n];
    arrin(arr,n);
    if(n == k){
        ll ans = 1;
        f(i,0,n){
            if(arr[i] >= 0){
                ans *= arr[i];
            }
            else{
                ans *= arr[i] + INF;
            }
            ans %= INF;
        }
        pl(ans);
        return 0;
    }
    MOD = INF;
    vii arr2;
    f(i,0,n){
        arr2.pb(ii(abs(arr[i]),(ll)(arr[i] < 0)));
    }
    ll ans = 1;
    sort(all(arr2));
    reverse(all(arr2));
    ll minpositive = INF;
    ll minnegative = INF;
    ll em = 0;
    f(i,0,k){
        ans *= arr2[i].F;
        ans %= INF;
        em += arr2[i].S;
        if(arr2[i].S == 0){
            minpositive = min(minpositive,arr2[i].F);
        }
        else{
            minnegative = min(minnegative,arr2[i].F);
        }
    }
    if(em % 2){
        ll allazo1 = -INF,allazo2 = -INF;
        f(i,k,n){
            if(arr2[i].S == 0){
                allazo1 = max(allazo1,arr2[i].F);
            }
            else{
                allazo2 = max(allazo2,arr2[i].F);
            }
        }
        ll a,b;
        if((allazo1 != -INF && minnegative != INF) || (allazo2 != -INF && minpositive != INF)){
            if(!(allazo1 != -INF && minnegative != INF)){
                a = allazo2;
                b = minpositive;
            }
            else if(!(allazo2 != -INF && minpositive != INF)){
                a = allazo1;
                b = minnegative;
            }
            else{
                if(allazo1 * minpositive >= minnegative * allazo2){
                    a = allazo1;
                    b = minnegative;
                }
                else{
                    a = allazo2;
                    b = minpositive;
                }
            }
            ans *= inverse(b);
            ans %= INF;
            ans *= a;
            ans %= INF;
        }
        else{
            reverse(all(arr2));
            ans = 1;
            f(i,0,k){
                ans *= arr2[i].F;
                ans %= INF;
            }
            ans = (INF - (ans % INF)) % INF;
        }
    }
    pl(ans);
}


Measured memory_bytes: 8988