sub f{@$z=grep($_ ne$a,@{$z=pop@$a}),f($a=$z)if@$a==1}<>;f$a=$_ for@a=map{/ (\S* \S*)$/;push@{$`},$1;push@$1,$`;$`,$1}<>;print grep(@$_>2,@a)?NO:YES