#include "bits/stdc++.h"

using namespace std;
  
typedef unsigned long long ULL;
typedef long long LL;
typedef pair<int, int> pr;
typedef pair<LL, LL> lpr;
typedef pair<double, double> dpr;
typedef pair<long double, long double> ldpr;
typedef double db;
typedef long double ld;
typedef complex<double> cp;
typedef pair<ld,ld> pt;
  
#define dbgs(x) #x << " = " << x
#define dbgs2(x, y) dbgs(x) << ", " << dbgs(y)
#define dbgs3(x, y, z) dbgs2(x, y) << ", " << dbgs(z)
#define dbgs4(w, x, y, z) dbgs3(w, x, y) << ", " << dbgs(z)
 
#define mst(s, x) memset(s, x, sizeof(s))
#define fi first
#define se second
#define pb push_back
#define pf push_front
#define ppb pop_back
#define ppf pop_front
#define mp make_pair
#define all(x) x.begin(), x.end()
#define unq(x) x.erase(unique(x.begin(), x.end()), x.end())
#define rg register
#define fp(i, a, b) for (rg int i = (a), I = (b) + 1; i < I; ++i)
#define fd(i, a, b) for (rg int i = (a), I = (b)-1; i > I; --i)
#define ub upper_bound
#define lb lower_bound
#define bitcount __builtin_popcount
#define sqr(x) ((x)*(x))
 
#define go(u) for (rg int i = pre[u], v = e[i].v; i; i = e[i].next, v = e[i].v)
#define gow(u) for (rg LL i = pre[u], v = e[i].v, w = e[i].w; i; i = e[i].next, v = e[i].v, w = e[i].w)
#define EDGE(N,M) struct edge{int u,v,w,next;}e[M];int pre[N],edge_cnt=0;void addedge(int u,int v,int w=0){edge_cnt=edge_cnt+1,e[edge_cnt].u=u,e[edge_cnt].v=v,e[edge_cnt].w=w,e[edge_cnt].next=pre[u],pre[u]=edge_cnt;}
#define CLEAR_EDGE(N) {edge_cnt=0,memset(pre,0,sizeof(int)*(N+1));}
 
#define MAXSIZE (1 << 20)
#define isdigit(x) (x >= '0' && x <= '9')
 
#define MC int _CASE;scanf("%d",&_CASE);fp(case_num,1,_CASE)
  
const int next_x[8] = {0, 1, -1, 0, 1, 1, -1, -1};
const int next_y[8] = {1, 0, 0, -1, 1, -1, -1, 1};
const int inf = 1e9+5;//7;
const LL linf = 1e18;
const double PI = acos(-1.0);
  
const int MAXN = 2e5+5;
const int N    = 1e6+5;

#define mid ((l+r)/2)
#define ls ((cnt<<1))
#define rs ((cnt<<1|1))
  
/*----------head----------*/

const LL MOD = 1e9+7;
int n,k;
int a[MAXN],f[MAXN];
LL  ans=1;
pr check1()
{
    int l=k,r=k+1;
    while(f[l]==1)l--;
    while(r<=n&&f[r]==-1)r++;

    // cout << dbgs2(l,r) << endl;
    if(r==n+1)return {0,0};
    return {l,r};
}
pr check2()
{
    int l=k,r=k+1;
    while(l&&f[l]==-1)l--;
    while(r<=n&&f[r]==1)r++;

    // cout << dbgs2(l,r) << endl;
    if(!l||r==n+1)return {0,0};
    else return {l,r};
}
pr best(pr x,pr y)
{
    if(!x.fi)return y;
    if(!y.fi)return x;
    return abs(1LL*a[x.se]*a[y.fi])>abs(1LL*a[x.fi]*a[y.se])?x:y;
}
int work()
{
    scanf("%d%d",&n,&k);
    fp(i,1,n)scanf("%d",&a[i]);
    sort(a+1,a+1+n,[](int a,int b){return abs(a)>abs(b);});
    fp(i,1,n)
    {
        if(a[i]==0)f[i]= 0;
        if(a[i]< 0)f[i]=-1;
        if(a[i]> 0)f[i]= 1;
    }
    int flag=1;
    fp(i,1,k)flag*=f[i];
    if(flag>=0)
    {
        fp(i,1,k)ans*=abs(a[i]),ans%=MOD;
        ans%=MOD,ans+=MOD,ans%=MOD;
        return printf("%lld\n",ans);
    }

    //flag==-1

    pr pos=best(check1(),check2());

    if(!pos.fi)
    {
        fd(i,n,n-k+1)ans*=a[i],ans%=MOD;
        ans%=MOD,ans+=MOD,ans%=MOD;
        return printf("%lld\n",ans);
    }

    fp(i,1,k)if(i!=pos.fi)ans*=abs(a[i]),ans%=MOD;
    ans*=abs(a[pos.se]),ans%=MOD,ans+=MOD,ans%=MOD;
    return printf("%lld\n",ans);
}

// 小数 二分/三分 注意break条件
// 浮点运算 sqrt(a^2-b^2) 可用 sqrt(a+b)*sqrt(a-b) 代替，避免精度问题
// long double -> %Lf 别用C11 (C14/16)
// 控制位数 cout << setprecision(10) << ans;
// reverse vector 注意判空 不然会re
// 分块注意维护块上标记 来更新块内数组a[]
// vector+lower_bound常数 < map/set
// map.find不会创建新元素 map[]会 注意空间
// 别对指针用memset
// 用位运算表示2^n注意加LL  1LL<<20
// 注意递归爆栈
// 注意边界
// 注意memset 多组样例会T
  
//#define ONLINE_JUDGE

int main()
{
    // ios::sync_with_stdio(false);
    // cin.tie(0);
#ifdef ONLINE_JUDGE
    //freopen("triatrip.in", "r",stdin );
    //freopen("triatrip.out","w",stdout);
#endif // ONLINE_JUDGE
#ifndef ONLINE_JUDGE
    int size = 512 << 20; // 512MB  
    char *p = (char*)malloc(size) + size;  
    __asm__("movl %0, %%esp\n" :: "r"(p));
    freopen("input.txt", "r", stdin);
    //freopen("output.txt", "w", stdout);
#endif
    work();
#ifndef ONLINE_JUDGE
    cout << "time:" << clock() << "ms" << endl;
    freopen("CON", "r", stdin);
    freopen("CON", "w", stdout);
    system("pause");
    fflush(stdout);
#endif
    return 0;
}

Measured memory_bytes: 5400