如何在 Haskell 中添加两个元组的元素以得到第三个元组。签名是这样的，
Add :: (Int,Int) -> (Int,Int) ->(Int,Int)
Add a b = ....
到目前为止，我只能想到这个：
Add a b = [(x, y) | a = (x1, y1), b = (x2, y2), x=x1+x2, y =y1+y2n]
然而，我对 Haskell 很陌生，那么我所做的是否正确？