use proconio::{fastout, input};

const MOD: u64 = 1000000007;

#[fastout]
fn main() {
    input! {
        n: usize,
        k: usize,
    }

    let mut vp: Vec<u64> = Vec::with_capacity(200010);
    let mut vm: Vec<u64> = Vec::with_capacity(200010);
    let mut ps = 0;
    let mut zs = 0;
    let mut ms = 0;

    for _ in 0..n {
        input! {
            mut a: i64,
        }
        if a > 0 {
            vp.push(a as u64);
            ps += 1;
        } else if a < 0 {
            a = -a;
            vm.push(a as u64);
            ms += 1;
        } else {
            zs += 1;
        }
    }

    let mut ans: u64 = 1;

    if zs + k > n {
        ans = 0;
    } else if k == n {
        if zs > 0 {
            ans = 0;
        } else {
            for i in &vp {
                ans = (ans * i) % MOD;
            }
            for i in &vm {
                ans = (ans * i) % MOD;
            }
            if ms % 2 == 1 {
                ans = (2 * MOD - ans) % MOD;
            }
        }
    } else if k % 2 == 1 && ms == n {
        vm.sort_unstable();
        for i in 0..k {
            ans = (ans * vm[i]) % MOD;
        }
        ans = (2 * MOD - ans) % MOD;
    } else {
        vp.sort_unstable();
        vp.reverse();
        vm.sort_unstable();
        vm.reverse();
        let mut i: usize = 0;
        let mut j: usize = 0;
        loop {
            if i + j >= k {
                break;
            } else if i >= ps {
                j += 1;
            } else if j >= ms {
                i += 1;
            } else if vp[i] >= vm[j] {
                i += 1;
            } else {
                j += 1;
            }
        }
        if j % 2 == 1 {
            if i == ps && j == ms {
                ans = 0;
            } else if i == 0 {
                if ps == 0 {
                    ans = 0;
                } else {
                    ans = 1;
                    if j >= 2 {
                        for j1 in 0..(j - 1) {
                        ans = (ans * vm[j1]) % MOD;
                        }
                    }
                    ans = (ans * vp[0]) % MOD;
                }
            } else if i == ps {
                ans = 1;
                if i >= 2 {
                    for i1 in 0..(i - 1) {
                        ans = (ans * vp[i1]) % MOD;
                    }
                }
                for j1 in 0..=j {
                    ans = (ans * vm[j1]) % MOD;
                }
            } else if j == ms {
                ans = 1;
                for i1 in 0..=i {
                    ans = (ans * vp[i1]) % MOD;
                }
                if j >= 2 {
                    for j1 in 0..(j - 1) {
                        ans = (ans * vm[j1]) % MOD;
                    }
                }
            } else {
                if vp[i - 1] * vp[i] >= vm[j - 1] * vm[j] {
                    ans = 1;
                    for i1 in 0..=i {
                        ans = (ans * vp[i1]) % MOD;
                    }
                    if j >= 2 {
                        for j1 in 0..(j - 1) {
                            ans = (ans * vm[j1]) % MOD;
                        }
                    }
                } else {
                    ans = 1;
                    if i >= 2 {
                        for i1 in 0..(i - 1) {
                            ans = (ans * vp[i1]) % MOD;
                        }
                    }
                    for j1 in 0..=j {
                        ans = (ans * vm[j1]) % MOD;
                    }
                }
            }
        } else {
            ans = 1;
            for i1 in 0..i {
                ans = (ans * vp[i1]) % MOD;
            }
            for j1 in 0..j {
                ans = (ans * vm[j1]) % MOD;
            }
        }
    }
    println!("{}", ans);
}


Measured memory_bytes: 5936