$n=<>;/ /,push@{$n-$`},$n-$' for<>;for$i(1..$n){print$|x($f|=$b[$i]=$|=grep!$b[$_],@$i)}