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