# Pastebin 1pEdvWox
fetch :: [String] -> IO ()
fetch (d:y:_) = do
   ny <- now Year
   nd <- now Day
   let y' = if null y then ny else y
       d' = if null d then nd else d
       valid
         | not . elem y' $ map show [2015..read ny] = False
         | not . elem d' $ map show [1..25] = False
         | y' == ny , not . elem d' $ map show [1..read nd] = False
         | otherwise = True