Today   (2020-02-02,   at the time of this writing)   happens to be a palindrome,   without the hyphens,   not only for those countries which express their dates in the   yyyy-mm-dd   format but,   unusually,   also for countries which use the   dd-mm-yyyy   format.



Task
Write a program which calculates and shows the next 15 palindromic dates for those countries which express their dates in the   yyyy-mm-dd   format.




      INSTALL @lib$ + "DATELIB"
      DIM B% 8
      TestDate%=FN_today
      REPEAT
        $B%=FN_date$(TestDate%, "yyyyMMdd")
        FOR I%=0 TO 3
          IF ?(B% + I%) <> ?(B% + 7 - I%) EXIT FOR
        NEXT
        IF I%=4 PRINT FN_date$(TestDate%, "yyyy-MM-dd")
        TestDate%+=1
      UNTIL VPOS=15
      END