print<>*grep({/ /,$
$`{$a[$'-1]}=${$'+0}{$a[$`-1]}=0for<>;(/^/<grep$_>$',@_=keys%{++$i})|1<grep$_<$',@_}@a=glob<>)?YES:NO