use common::sense;
my($n,$m)=split/ /,<>;
my@a=<>;
my$c=0;
my@dp=(1,(0)x$n);
my$mod=1000000007;
for(my$i=1;$i<=$n;$i++){
 if($c<@a&&$i==$a[$c]){
  $dp[$i]=0;
  $c++;
 }elsif($i==1){
  $dp[$i]=1;
 }else{
  $dp[$i]=$dp[$i-2]+$dp[$i-1];
  $dp[$i]%=$mod;
 }
}
print$dp[$n];
