-- Constants
--sTART_DATE :: DateStuff 
--sTART_DATE = DateStuff ("2013", "02", "09")

-- Date extraction functions
exYear :: [String] -> String
exYear (x:xs) = x
exYear :: [String] -> String
exYear (x:xs) = x
exYear (x:xs) = x