data Rectangle
    = UnitSquare
    | Square Int
    | Rect Int Int

-- examples of values for each would be:
v1 :: Rectangle
v1 = UnitSquare

v2 :: Rectangle
v2 = Square 3

v3 :: Rectangle
v3 = Rect 5 9