adt4.hs

-- Person is a product type consisting of 3 fields
data Person = Person
  { name :: String
  , age :: Int
  , address :: Address
  }

-- Address is a product type on its own
data Address = Address
  { country :: String
  , city :: String
  , street :: String
  }

-- In order to create Position you have to provide all 3 coordinates
data Position = Position
  { x :: Integer
  , y :: Integer
  , z :: Integer
  }