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