eval'N,K,*D='+$<.read.split*?,
c=0
N.times{|i|o=i;(o>i&&c+=1;D[o],o=p,N-1)while N=D[o]}
puts c>K||c+K&1>0?:NO:'YES'