#!/usr/bin/perl

use warnings;

my $a=shift;
my $search=0;

for my $x(@ARGV)
{
	$search||=($x==$a);
}

print $search? 'YES': 'NO', "\n";