toDateStuffFromString :: String -> DateStuff
toDateStuffFromString d = let dd = split "-" d in
    DateStuff ((exYear dd), (exMonth dd), (exDay dd))
toDateStuffFromString :: String -> DateStuff
toDateStuffFromString d = let dd = split "-" d in
    DateStuff ((exYear dd), (exMonth dd), (exDay dd))
toDateStuffFromString d = let dd = split "-" d in
    DateStuff ((exYear dd), (exMonth dd), (exDay dd))