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.




func Rev(N);
int  N;
[N:= N/10;
return rem(0)*10 + N;
];
 
proc NumOut(N);
int  N;
[if N < 10 then ChOut(0, ^0);
IntOut(0, N);
];
 
int C, Y, M, D, Q, R;
[C:= 0;
for Y:= 2021 to -1>>1 do
  for M:= 1 to 12 do
    for D:= 1 to 28 do
        [Q:= Y/100;
        R:= rem(0);
        if Q = Rev(D) and R = Rev(M) then
            [IntOut(0, Y);  ChOut(0, ^-);
            NumOut(M);  ChOut(0, ^-);
            NumOut(D);  CrLf(0);
            C:= C+1;
            if C >= 15 then return;
            ];
        ];
]