(while 1(#(println%'is(if(>(mod%(if(>(mod% 50)0)4 16))0)"not a"\a)"leap year.")(read)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page