{- Begin data type definitions from lecture -}

data Date = DMY
    Int     -- day
    Int     -- month
    Integer -- year
    deriving Show

data Person = Person
    String -- first name
    String -- last name
    Date   -- birthday
    deriving Show

{- End data type definitions from lecture -}

{- Exercise 3.1 -}

{- Exercise 3.2 -}

{- Exercise 3.3 -}