<>;map{$a=$_;@$0=grep($_ ne$a,@{$0=pop@$a}),$a=$0until$#$a}@a=map{/ (\S* \S*)$/;push@{$`},$1;push@$1,$`;$`,$1}<>;print grep(@$_>2,@a)?NO:YES