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