pNeg :: (Num a) => Point a -> Point a
pNeg (Point x y) = Point (negate x) (negate y)
pNeg :: (Num a) => Point a -> Point a
pNeg (Point x y) = Point (negate x) (negate y)
pNeg (Point x y) = Point (negate x) (negate y)