$c=<>;$n=<>;$/=$";@d=(0,(-1)x$c);map{//;$d[$_-$']>=0&&$d[$_]<0|$d[$_]>($==$d[$_-$']+1)and$d[$_]=$=for$'..$c}<>;print$d[$c]