@0=1..<>;$h[$g]=[glob<>]while$g=<>;@u=map{!grep!$u[$_-1],@{$h[$_]}}@0for@0;print~~grep$_,@u