(while 1(let[n(read)m #(= 0(mod n%))](println n'is(if(if(m 100)(m 400)(m 4))'a"not a")"leap year.")))