-- file: ch03/Distinction.hs
-- From chapter 3, http://book.realworldhaskell.org/read/defining-types-streamlining-functions.html

a = ("Porpoise", "Grey")
b = ("Table", "Oak")

data Cetacean = Cetacean String String
data Furniture = Furniture String String

c = Cetacean "Porpoise" "Grey"
d = Furniture "Table" "Oak"
