9 lines
219 B
Text
9 lines
219 B
Text
[ 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 ] ]
|