Most years have 52 weeks, some have 53, according to ISO8601.



Task

Write a function which determines if a given year is long (53 weeks) or not, and demonstrate it.




  [ dup dip
      [ 1 1 rot dayofweek 4 = ]
    31 12 rot dayofweek 4 = or ] is longyear ( n --> b )
 
  say "Long Years in the 21st Century" cr
  cr
  100 times
    [ 2000 i^ + longyear if 
      [ 2000 i^ + echo sp ] ]