@q=[0,0];
for(0..64){
	($x,$y)=@{$q[$_]};
	$_&&push@q,[$x+$_,$y+3-abs],[$x+$_,$y-3+abs]for-2..2
}
($X,$Y)=glob<>;
print grep(@$_[0]==$X&&@$_[1]==$Y,@q)?YES:NO