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