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