: a begin pad dup 5 stdin read-line + while evaluate dup . ." is"dup 'd mod 0= if 4 / then 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