(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)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page