sub f{
	my($a,$u)=@_;
	if($u==0x7ff){
		$a.="\n";
		exit!print$a if!$$a && $a!~/[nbmgr]$/;
		return;
	}
	for(0..10){
		if(!($u&1<<$_)){
			my $c=$a.substr(inabameguru,$_,1);
			if($c!~/[nbmgr][nbmgr]/){
				f($c,$u|1<<$_);
			}
		}
	}
}
<>;$$_++for<>;f('',0);
print"NO";