n,*d=$<.read.split.map &:to_i
e=0
n.times{|i|c=1;o=i;(c^=1;d[o],o=p,d[o]-1)while d[o];e+=c}
$><<[:NO,:YES][e&1]