varsNotInScope pnts inScopeRel
   = nub $ map pNTtoPN (filter 
          (\pnt->if isQualifiedPN (pNTtoPN pnt) then  hsQualifier pnt inScopeRel == []
                                                else not (isInScopeAndUnqualified (pNTtoName pnt) inScopeRel)) pnts)
varsNotInScope pnts inScopeRel
   = nub $ map pNTtoPN (filter 
          (\pnt->if isQualifiedPN (pNTtoPN pnt) then  hsQualifier pnt inScopeRel == []
                                                else not (isInScopeAndUnqualified (pNTtoName pnt) inScopeRel)) pnts)
varsNotInScope pnts inScopeRel
   = nub $ map pNTtoPN (filter 
          (\pnt->if isQualifiedPN (pNTtoPN pnt) then  hsQualifier pnt inScopeRel == []
                                                else not (isInScopeAndUnqualified (pNTtoName pnt) inScopeRel)) pnts)