r:=[[(y,m); [1900..2100];
            [1..12],{D.daysInMonth(y,m)==31 and 5==D.weekDay(y,m,1)};
            {String(y,"-",m)}]];