RosettaCodeData/Task/Five-weekends/Zkl/five-weekends-2.zkl

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