use v6;

my $n = get().chomp;
my @eto;
loop (my $i = 0; $i < 12; $i++) {
	@eto[$i] = 0;
}

loop ($i = 0; $i < $n; $i++) {
	my $name = get();
	if $name eq 'ne' {
		@eto[0]++;
	} elsif $name eq 'ushi' {
		@eto[1]++;
	} elsif $name eq 'tora' {
		@eto[2]++;
	} elsif $name eq 'u' {
		@eto[3]++;
	} elsif $name eq 'tatsu' {
		@eto[4]++;
	} elsif $name eq 'mi' {
		@eto[5]++;
	} elsif $name eq 'uma' {
		@eto[6]++;
	} elsif $name eq 'hitsuji' {
		@eto[7]++;
	} elsif $name eq 'saru' {
		@eto[8]++;
	} elsif $name eq 'tori' {
		@eto[9]++;
	} elsif $name eq 'inu' {
		@eto[10]++;
	} elsif $name eq 'i' {
		@eto[11]++;
	}
}

my $ans = 0;
$n = ($n + 1) / 2;
for @eto -> $num {
	if $n < $num {
		$ans++;
	}
}

if $ans == 0 {
	say "YES";
} else {
	say "NO";
}