Problem:
Score : 1100 points

Problem Statement

There are 2^N players, numbered 1, 2, ..., 2^N.
They decided to hold a tournament.

The tournament proceeds as follows:

Choose a permutation of 1, 2, ..., 2^N: p_1, p_2, ..., p_{2^N}.

The players stand in a row in the order of Player p_1, Player p_2, ..., Player p_{2^N}.

Repeat the following until there is only one player remaining in the row:

Play the following matches: the first player in the row versus the second player in the row, the third player versus the fourth player, and so on. The players who lose leave the row. The players who win stand in a row again, preserving the relative order of the players.

The last player who remains in the row is the champion.

It is known that, the result of the match between two players can be written as follows, using M integers A_1, A_2, ..., A_M given as input:

When y = A_i for some i, the winner of the match between Player 1 and Player y (2 \leq y \leq 2^N) will be Player y.

When y \neq A_i for every i, the winner of the match between Player 1 and Player y (2 \leq y \leq 2^N) will be Player 1.

When 2 \leq x < y \leq 2^N, the winner of the match between Player x and Player y will be Player x.

The champion of this tournament depends only on the permutation p_1, p_2, ..., p_{2^N} chosen at the beginning.
Find the number of permutation p_1, p_2, ..., p_{2^N} chosen at the beginning of the tournament that would result in Player 1 becoming the champion, modulo 10^9 + 7.

Constraints

1 \leq N \leq 16

0 \leq M \leq 16

2 \leq A_i \leq 2^N (1 \leq i \leq M)

A_i < A_{i + 1} (1 \leq i < M)

Input

Input is given from Standard Input in the following format:

N M
A_1 A_2 ... A_M

Output

Print the answer.

Sample Input 1

2 1
3

Sample Output 1

8

Examples of p that satisfy the condition are: [1, 4, 2, 3] and [3, 2, 1, 4]. Examples of p that do not satisfy the condition are: [1, 2, 3, 4] and [1, 3, 2, 4].

Sample Input 2

4 3
2 4 6

Sample Output 2

0

Sample Input 3

3 0

Sample Output 3

40320

Sample Input 4

3 3
3 4 7

Sample Output 4

2688

Sample Input 5

16 16
5489 5490 5491 5492 5493 5494 5495 5497 18993 18995 18997 18999 19000 19001 19002 19003

Sample Output 5

816646464

Solution in Rust (1.15.1) (judge verdict: Accepted)

use std::io::*;
use std::str::FromStr;

#[allow(dead_code)]
fn read<T: FromStr>() -> T {
    let stdin = stdin();
    let stdin = stdin.lock();
    let token: String = stdin
        .bytes()
        .map(|c| c.expect("failed to read char") as char)
        .skip_while(|c| c.is_whitespace())
        .take_while(|c| !c.is_whitespace())
        .collect();
    token.parse().ok().expect("failed to parse token")
}

#[allow(dead_code)]
// a x + b y = gcd(a, b)
fn extgcd(a: i64, b: i64, x: &mut i64, y: &mut i64) -> i64 {
    let mut g = a;
    *x = 1;
    *y = 0;
    if b != 0 {
        g = extgcd(b, a % b, y, x);
        *y -= (a / b) * *x;
    }
    g
}

#[allow(dead_code)]
fn pow_mod(base: i64, power: i64, modulo: i64) -> i64 {
    let mut base = base;
    let mut power = power;
    let mut ans = 1;
    while power > 0 {
        if power & 1 == 1 { ans = ans * base % modulo; }
        power >>= 1;
        base = base * base % modulo;
    }
    ans
}

#[allow(dead_code)]
fn inv_mod(a: i64, modulo: i64) -> i64 {
    pow_mod(a, modulo - 2, modulo)
}

const MOD: i64 = 1e+9 as i64 + 7;
const FACT_MAX: usize = 100000;
static mut FACTORIAL: [i64; FACT_MAX + 1] = [0; FACT_MAX + 1];
static mut RFACTORIAL: [i64; FACT_MAX + 1] = [0; FACT_MAX + 1];
#[allow(dead_code)]
fn fact(n: usize) -> i64 {
    unsafe {
        FACTORIAL[n]
    }
}
#[allow(dead_code)]
fn combi(n: usize, m: usize) -> i64 {
    if n < m { return 0; }
    unsafe {
        FACTORIAL[n] * RFACTORIAL[m] % MOD * RFACTORIAL[n - m] % MOD
    }
}

fn calc_rest(n: usize, use_set: usize, v: usize) -> i32 {
    let mut usable = ((1 << n) - v) as i32;
    for i in 0..n {
        if ((use_set >> i) & 1) != 1 { continue; }
        usable -= 1 << i;
    }
    usable
}
fn calc_dp(n: usize, aseq: &Vec<usize>, dp: &mut Vec<Vec<i64>>) {
    let mut cnt_memo = vec![vec![0; n]; 1 << n];
    for i in 0..(1 << n) {
        for j in 0..n {
            cnt_memo[i][j] = combi(i, (1 << j) - 1) * fact(1 << j) % MOD as i64;
        }
    }
    for depth in 0..aseq.len() {
        for use_set in 0..(1 << n) {
            dp[depth + 1][use_set] = (dp[depth + 1][use_set] + dp[depth][use_set]) % MOD;
            let usable = calc_rest(n, use_set, aseq[depth]);
            // println!("{} {} {}", depth, use_set, usable);
            if usable < 0 { continue; }
            for i in 0..n {
                let nuse_set = use_set | (1 << i);
                if use_set == nuse_set { continue; }
                let cnt = cnt_memo[usable as usize][i];
                // let cnt = combi(usable as usize, (1 << i) - 1) * fact(1 << i) % MOD;
                dp[depth + 1][nuse_set] = (dp[depth + 1][nuse_set] + cnt * dp[depth][use_set]) % MOD;
            }
        }
    }
}

fn f(n: usize, use_set: usize) -> i64 {
    let usable = calc_rest(n, use_set, 1) as usize;
    fact(usable) * (1 << n) % MOD
}

fn main() {
    unsafe {
        FACTORIAL[0] = 1;
        RFACTORIAL[0] = 1;
        for i in 1..FACT_MAX+1 {
            FACTORIAL[i] = (FACTORIAL[i - 1] * i as i64) % MOD;
            RFACTORIAL[i] = inv_mod(FACTORIAL[i], MOD);
        }
    }
    let n: usize = read();
    let m: usize = read();
    let mut aseq = vec![0; m];
    for i in 0..m {
        aseq[i] = read();
    }
    aseq.sort();
    aseq.reverse();
    let mut dp = vec![vec![0 as i64; 1 << n]; m + 1];
    dp[0][0] = 1;
    calc_dp(n, &aseq, &mut dp);
    let mut ans = 0 as i64;
    for use_set in 0..(1 << n) {
        let sign = if (use_set as usize).count_ones() % 2 == 0 { 1 } else { -1 };
        // println!("{}", dp[m][use_set]);
        ans = (ans + f(n, use_set) * dp[m][use_set] % MOD * sign + MOD) % MOD;
    }
    println!("{}", ans);
}