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