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