`Rect`
getX :: Shape -> Double
getX (Rect x _) = x
getX :: Shape -> Double
getX (Rect x y) = x
`y`GHC
`getX` `Person`
`Rect`
getX :: Shape -> Double
getX (Rect x _) = x
getX :: Shape -> Double
getX (Rect x y) = x
`y`GHC
`getX` `Person`