var [const] D=Time.Date, r=L();
foreach y,m in ([1900..2100],[1..12]){
   if (D.daysInMonth(y,m)==31 and 5==D.weekDay(y,m,1)) r.append(String(y,"-",m))
}