BOOL local fn IsLongYear( year as int )
  int year1 = year - 1
  int p = (year + (year / 4) - (year / 100) + (year / 400)) % 7
  int p1 = (year1 + (year1 / 4) - (year1 / 100) + (year1 / 400)) % 7
end fn = p == 4 || p1 == 3

for int y = 2000 to 2100
  if ( fn IsLongYear( y ) ) then print y
next

HandleEvents