Assignment 2 Define a geometry data type in Haskell and use it to implement some functions data Geometry = Point Int Int -- x, y | Circle Int Int Int -- x, y, radius | Rectangle Int Int Int Int -- x1, y1, x2, y2 | Group [Geometry] 1) Define functions to compute: a) The area of the geomtric figure (counting overlaps as additional area) b) The bounding box of the geometric figure 2) Extend the data type and the two functions to include *triangles*. They need six Int's to specify the triangles points.