($n,$k)=glob<>;
@d=(0,<>=~/\d+/g);
map{
	$c--if$d[$_];
	($d[$_],$_)=(0,$d[$_]),$c++while$d[$_];
}1..$n;
print$k>=$c&$k+$c+1?YES:NO