(loop(format t"~D is~@[ not~] a leap year.
"(set'a(read))(or(>(mod a 4)0)(find(mod(/ a 100)4)'(1 2 3)))))