pAdd :: (Num a) => Point a -> Point a -> Point a
pAdd (Point x1 y1) (Point x2 y2) = Point (x1 + x2) (y1 + y2)
pAdd :: (Num a) => Point a -> Point a -> Point a
pAdd (Point x1 y1) (Point x2 y2) = Point (x1 + x2) (y1 + y2)
pAdd (Point x1 y1) (Point x2 y2) = Point (x1 + x2) (y1 + y2)