my($n,$m)=split/ /,<>;
my@a=<>;
@a=(-1,@a,$n+1);
my@f=(1,1);
my$ans=1;
for(my$i=1;$i<=$m+1;$i++){
 my$l=$a[$i]-$a[$i-1]-1;
 for(my$j=@f;$j<$l+1;$j++){
  push@f,$f[$j-2]+$f[$j-1];
 }
 $ans*=$f[$l-1];
 $ans%=1000000007;
}
print$ans;
