main=interact$unlines.map y.lines;y x=x++" is "++l(read x)++"a leap year.";l x|mod x 4==0&&(mod x 100/=0||mod x 400==0)="";l _="not "
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page