import "Prelude"

data Vec = Vec { x :: Double, y :: Double }
deriving instance Show Vec

createVec x y = Vec {x, y}
sumVec Vec { x1, y1 } Vec { x2, y2 } = Vec { x = x1+x2, y = y1 + y2 }

main = sumVec (createVec 1 2) (createVec 3 4)
-- 
(Vec 4.0 6.0)