sub n{!($a[$v[$_[0]]]&$a[$v[$_[1]]])}
@v=map$h{glob<>}//=$k++,0..5;
print grep({
	@a=eval;
	exit!print"YES"if n(n(n(0,1),2),n(n(3,4),5));
}glob'{0,1},'x6)?YES:NO;