/* #region Head */

#include <bits/stdc++.h>
using namespace std;

using ll = long long;
using ull = unsigned long long;
using ld = long double;
using pll = pair<ll, ll>;
template <class T> using vc = vector<T>;
template <class T> using vvc = vc<vc<T>>;
using vll = vc<ll>;
using vvll = vvc<ll>;
using vld = vc<ld>;
using vvld = vvc<ld>;
using vs = vc<string>;
using vvs = vvc<string>;
template <class T, class U> using um = unordered_map<T, U>;
template <class T> using pq = priority_queue<T>;
template <class T> using pqa = priority_queue<T, vc<T>, greater<T>>;
template <class T> using us = unordered_set<T>;

#define REP(i, m, n) for (ll i = (m), i##_len = (ll)(n); i < i##_len; ++(i))
#define REPM(i, m, n) for (ll i = (m), i##_max = (ll)(n); i <= i##_max; ++(i))
#define REPR(i, m, n) for (ll i = (m), i##_min = (ll)(n); i >= i##_min; --(i))
#define REPD(i, m, n, d) for (ll i = (m), i##_len = (ll)(n); i < i##_len; i += (d))
#define REPMD(i, m, n, d) for (ll i = (m), i##_max = (ll)(n); i <= i##_max; i += (d))
#define REPI(itr, ds) for (auto itr = ds.begin(); itr != ds.end(); itr++)
#define ALL(x) begin(x), end(x)
#define SIZE(x) ((ll)(x).size())
#define PERM(c)                                                                                                        \
    sort(ALL(c));                                                                                                      \
    for (bool c##p = 1; c##p; c##p = next_permutation(ALL(c)))
#define UNIQ(v) v.erase(unique(ALL(v)), v.end());

#define endl '\n'
#define sqrt sqrtl
#define floor floorl
#define log2 log2l

constexpr ll INF = 1'010'000'000'000'000'017LL;
constexpr ll MOD = 1'000'000'007LL; // 1e9 + 7
constexpr ld EPS = 1e-12;
constexpr ld PI = 3.14159265358979323846;

template <typename T> istream &operator>>(istream &is, vc<T> &vec) { // vector 入力
    for (T &x : vec) is >> x;
    return is;
}
template <typename T> ostream &operator<<(ostream &os, vc<T> &vec) { // vector 出力 (for dump)
    os << "{";
    REP(i, 0, SIZE(vec)) os << vec[i] << (i == i_len - 1 ? "" : ", ");
    os << "}";
    return os;
}
template <typename T> ostream &operator>>(ostream &os, vc<T> &vec) { // vector 出力 (inline)
    REP(i, 0, SIZE(vec)) os << vec[i] << (i == i_len - 1 ? "\n" : " ");
    return os;
}

template <typename T, typename U> istream &operator>>(istream &is, pair<T, U> &pair_var) { // pair 入力
    is >> pair_var.first >> pair_var.second;
    return is;
}
template <typename T, typename U> ostream &operator<<(ostream &os, pair<T, U> &pair_var) { // pair 出力
    os << "(" << pair_var.first << ", " << pair_var.second << ")";
    return os;
}

// map, um, set, us 出力
template <class T> ostream &out_iter(ostream &os, T &map_var) {
    os << "{";
    REPI(itr, map_var) {
        os << *itr;
        auto itrcp = itr;
        if (++itrcp != map_var.end()) os << ", ";
    }
    return os << "}";
}
template <typename T, typename U> ostream &operator<<(ostream &os, map<T, U> &map_var) { return out_iter(os, map_var); }
template <typename T, typename U> ostream &operator<<(ostream &os, um<T, U> &map_var) {
    os << "{";
    REPI(itr, map_var) {
        auto [key, value] = *itr;
        os << "(" << key << ", " << value << ")";
        auto itrcp = itr;
        if (++itrcp != map_var.end()) os << ", ";
    }
    os << "}";
    return os;
}
template <typename T> ostream &operator<<(ostream &os, set<T> &set_var) { return out_iter(os, set_var); }
template <typename T> ostream &operator<<(ostream &os, us<T> &set_var) { return out_iter(os, set_var); }
template <typename T> ostream &operator<<(ostream &os, pq<T> &pq_var) {
    pq<T> pq_cp(pq_var);
    os << "{";
    if (!pq_cp.empty()) {
        os << pq_cp.top(), pq_cp.pop();
        while (!pq_cp.empty()) os << ", " << pq_cp.top(), pq_cp.pop();
    }
    return os << "}";
}

// dump
#define DUMPOUT cerr
void dump_func() { DUMPOUT << endl; }
template <class Head, class... Tail> void dump_func(Head &&head, Tail &&... tail) {
    DUMPOUT << head;
    if (sizeof...(Tail) > 0) DUMPOUT << ", ";
    dump_func(move(tail)...);
}

// chmax (更新「される」かもしれない値が前)
template <typename T, typename U, typename Comp = less<>> bool chmax(T &xmax, const U &x, Comp comp = {}) {
    if (comp(xmax, x)) {
        xmax = x;
        return true;
    }
    return false;
}

// chmin (更新「される」かもしれない値が前)
template <typename T, typename U, typename Comp = less<>> bool chmin(T &xmin, const U &x, Comp comp = {}) {
    if (comp(x, xmin)) {
        xmin = x;
        return true;
    }
    return false;
}

// ローカル用
#define DEBUG_

#ifdef DEBUG_
#define DEB
#define dump(...)                                                                                                      \
    DUMPOUT << "  " << string(#__VA_ARGS__) << ": "                                                                    \
            << "[" << to_string(__LINE__) << ":" << __FUNCTION__ << "]" << endl                                        \
            << "    ",                                                                                                 \
        dump_func(__VA_ARGS__)
#else
#define DEB if (false)
#define dump(...)
#endif

struct AtCoderInitialize {
    static constexpr int IOS_PREC = 15;
    static constexpr bool AUTOFLUSH = false;
    AtCoderInitialize() {
        ios_base::sync_with_stdio(false), cin.tie(nullptr), cout.tie(nullptr);
        cout << fixed << setprecision(IOS_PREC);
        if (AUTOFLUSH) cout << unitbuf;
    }
} ATCODER_INITIALIZE;

void Yn(bool p) { cout << (p ? "Yes" : "No") << endl; }
void YN(bool p) { cout << (p ? "YES" : "NO") << endl; }

/* #endregion */

/* #region mint */

// 自動で MOD を取る整数
struct mint {
    ll x;
    mint(ll x = 0) : x((x % MOD + MOD) % MOD) {}
    mint &operator+=(const mint a) {
        if ((x += a.x) >= MOD) x -= MOD;
        return *this;
    }
    mint &operator-=(const mint a) {
        if ((x += MOD - a.x) >= MOD) x -= MOD;
        return *this;
    }
    mint &operator*=(const mint a) {
        (x *= a.x) %= MOD;
        return *this;
    }
    mint operator+(const mint a) const {
        mint res(*this);
        return res += a;
    }
    mint operator-(const mint a) const {
        mint res(*this);
        return res -= a;
    }
    mint operator*(const mint a) const {
        mint res(*this);
        return res *= a;
    }
    // O(log(t))
    mint pow(ll t) const {
        if (!t) return 1;
        mint a = pow(t >> 1); // ⌊t/2⌋ 乗
        a *= a;               // ⌊t/2⌋*2 乗
        if (t & 1)            // ⌊t/2⌋*2 == t-1 のとき
            a *= *this;       // ⌊t/2⌋*2+1 乗 => t 乗
        return a;
    }

    // for prime mod
    mint inv() const {
        return pow(MOD - 2); // オイラーの定理から， x^(-1) ≡ x^(p-2)
    }
    mint &operator/=(const mint a) { return (*this) *= a.inv(); }
    mint operator/(const mint a) const {
        mint res(*this);
        return res /= a;
    }
    bool operator==(const mint a) const { return this->x == a.x; }
    bool operator==(const ll a) const { return this->x == a; }

    // mint 入力
    friend istream &operator>>(istream &is, mint &x) {
        is >> x.x;
        return is;
    }

    // mint 出力
    friend ostream &operator<<(ostream &os, mint x) {
        os << x.x;
        return os;
    }
};

/* #endregion */

// Problem
void solve() {
    ll n, k;
    cin >> n >> k;
    vll a(n);
    cin >> a;
    sort(ALL(a));

    // k 個の内訳を考える
    // 0 が含まれるかもしれない！0 は一旦除外して考える
    // a が正の数しかないなら，大きい方から選んだらよい
    // a が負の数しかないなら，Kが奇数のとき絶対値の最小化，kが偶数のとき絶対値の最大化でよい
    // a が正負両方含むとき，負数を偶数個・正数を偶数個にできるなら，絶対値の最大化
    //                       負数を奇数個にしかできないなら，絶対値の最小化

    vll pos, neg; // 絶対値を格納
    ll zeros = 0;
    REP(i, 0, n) {
        if (a[i] > 0)
            pos.push_back(a[i]);
        else if (a[i] < 0)
            neg.push_back(-a[i]);
        else
            zeros++;
    }
    ll spos = SIZE(pos);
    ll sneg = SIZE(neg);
    if (spos + sneg < k) {
        // どう頑張っても 0 になる
        cout << 0 << endl;
        return;
    }
    // assert: 0 以外の数を k 個選べる

    // 絶対値の大きい順にソートする
    sort(ALL(pos));
    sort(ALL(neg));
    reverse(ALL(pos));
    reverse(ALL(neg));
    // 大きい数から，2個ずつ見ていって，積が正になるようにしていく
    // 最後に1個枠が余ったら，正の数を使う
    // 正の数がもう無い場合，負の数が余っていれば，正の数2個をキャンセルして負の数2個と正の数1個を使う?
    // 無理なら，絶対値の最小化になる?
    if ((sneg / 2) * 2 + spos >= k) {
        // 個数が足りているので，いまのところ絶対値の最大化でOK
        // 無理そうなら，絶対値の最小化に切り替える?
        ll ptr_pos = 0, ptr_neg = 0, cnt = 0;
        mint ret = 1;
        while (cnt < k) {
            if (k - cnt == 1) {
                // 1 個しか選べない，正の数があればそれでよい？→ダメ．
                // 負の数が2個以上使えるなら，それを使って正の数を1つロールバックしたパターンと，
                // 正の数1個を新たに使うパターンで，どちらが得するか調べる．
                // 負の数が2個以上使えないなら，正の数を使うしかない．(正の数が余っていれば．)
                if (sneg - ptr_neg >= 2 && spos - ptr_pos >= 1 && ptr_pos >= 2) {
                    ret /= pos[--ptr_pos];
                    // ret /= pos[ptr_pos - 2];
                    ll prod_pos = pos[ptr_pos] * pos[ptr_pos + 1];
                    ll prod_neg = neg[ptr_neg] * neg[ptr_neg + 1];
                    if (prod_neg >= prod_pos) {
                        ptr_neg += 2;
                        ret *= prod_neg;
                    } else {
                        ptr_pos += 2;
                        ret *= prod_pos;
                    }
                    cnt++;
                } else if (sneg - ptr_neg >= 2 && ptr_pos >= 2) {
                    // 巻き戻すしかない
                    ret /= pos[--ptr_pos];
                    ll prod_neg = neg[ptr_neg] * neg[ptr_neg + 1];
                    ptr_neg += 2;
                    ret *= prod_neg;
                    cnt++;
                } else if (spos - ptr_pos >= 1) {
                    // 正の数を使うしかない
                    ret *= pos[ptr_pos++];
                    cnt++;
                }
                // assert(spos - ptr_pos >= 1);
                // ret *= pos[ptr_pos++];
                // cnt++;
                break;
            } else if (spos - ptr_pos >= 2 && sneg - ptr_neg >= 2) {
                assert(k - cnt >= 2);
                // 正負どちらからも選べる
                ll prod_pos = pos[ptr_pos] * pos[ptr_pos + 1];
                ll prod_neg = neg[ptr_neg] * neg[ptr_neg + 1];
                // dump(prod_pos, prod_neg);
                if (prod_neg >= prod_pos) {
                    ptr_neg += 2;
                    ret *= prod_neg;
                } else {
                    ptr_pos += 2;
                    ret *= prod_pos;
                }
                cnt += 2;
            } else if (spos - ptr_pos >= 2) {
                ll prod_pos = pos[ptr_pos] * pos[ptr_pos + 1];
                ptr_pos += 2;
                ret *= prod_pos;
                cnt += 2;
            } else {
                assert(sneg - ptr_neg >= 2);
                ll prod_neg = neg[ptr_neg] * neg[ptr_neg + 1];
                ptr_neg += 2;
                ret *= prod_neg;
                cnt += 2;
            }
        }
        if (cnt == k) {
            // dump(1);
            cout << ret << endl;
            return;
        }
    }
    // dump(333);

    // 個数が足りていないので，絶対値の最小化になる．
    // 0 があるなら 0 を使うが，ないなら絶対値が小さい数から貪欲に使う
    if (zeros > 0) {
        cout << 0 << endl;
        return;
    }
    mint ret = -1;
    reverse(ALL(pos));
    reverse(ALL(neg));
    ll cc = 0;
    ll ptr_pos_ = 0, ptr_neg_ = 0;
    while (cc < k) {
        if (ptr_pos_ == spos) {
            ret *= neg[ptr_neg_++];
        } else if (ptr_neg_ == sneg) {
            ret *= pos[ptr_pos_++];
        } else if (pos[ptr_pos_] > neg[ptr_neg_]) {
            ret *= pos[ptr_pos_++];
        } else {
            ret *= neg[ptr_neg_++];
        }
        cc++;
    }
    // dump(2);
    cout << ret << endl;
}

// entry point
int main() {
    solve();
    return 0;
}


Measured memory_bytes: 7140