#[macro_export]
macro_rules! setup {
    { mut $input:ident: SplitWhitespace $(,)? } => {
        use std::io::Read;
        let mut buf = String::new();
        std::io::stdin().read_to_string(&mut buf).ok();
        let mut $input = buf.split_whitespace();
    };
}

#[macro_export]
macro_rules! parse_next {
    ($str_iter:expr) => {
        $str_iter.next().unwrap().parse().ok().unwrap()
    };
}

#[allow(unused_imports)]
use std::collections::{HashMap, HashSet, VecDeque};

fn main() {
    setup! { mut input: SplitWhitespace };

    let n: usize = parse_next!(input);
    let k: usize = parse_next!(input);
    let a: Vec<usize> = (0..n).map(|_| parse_next!(input)).collect();

    const MOD: usize = 998244353;

    macro_rules! b {
        ($i:expr, $op:tt, $j:expr) => {
            b!($i, $op, $j, MOD)
        };
        ($i:expr, +, $j:expr, $mod:expr) => {
            ($i + $j) % $mod
        };
        ($i:expr, -, $j:expr, $mod:expr) => {{
            ($i + $mod - $j) % $mod
        }};
        ($i:expr, *, $j:expr, $mod:expr) => {
            ($i * $j) % $mod
        };
        ($i:expr, /, $j:expr, $mod:expr) => {
            b!($i, *, b!($j, ^, $mod - 2, $mod), $mod)
        };
        ($i:expr, ^, $j:expr, $mod:expr) => {{
            let mut a = $i;
            let mut n = $j;
            let mut ret = 1;
            while n > 0 {
                if n & 1 == 1 {
                    ret = b!(ret, *, a, $mod);
                }
                a = b!(a, *, a, $mod);
                n >>= 1;
            }
            ret
        }};
    }

    let ans = (|| {
        let sum = a.iter().fold(0, |acc, x| b!(acc, +, x));
        b!(sum, *, b!(2, ^, k))
    })();

    println!("{}", ans);
}