(Polygon pts) `containsS` p 
    = let leftOfList = map isLeftOfp
                       (zip pts (tail pts ++ [head pts]))
          isLeftOfp = isLeftOf p
      in and leftOfList