: 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