: a begin dp dp 5 stdin read-line + while evaluate dup . ." is"'d /mod swap ?dup or 4 mod if ." not"then ." a leap year."cr repeat ; a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page