: 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