n,k,*a=$<.read.split.map &:to_i
r=0
k>0&&a.inject(:&)<a[0]||[0,*a,2**n-r=1].sort.map{|e|("%b"%e).count ?1}.uniq.each_cons(2){|x,y|r=(1..y-x).inject(:*)*r%(10**9+7)}
p r