data Tester = Tester [Example] deriving(Eq, Show)
data Example = Example Property deriving(Eq, Show)
type Property = String

exampleOne = Example "One"
exampleTwo = Example "Two"
theTester = Tester [exampleOne]