while 1>0do
let y=read_int()in
Printf.printf"%d is %sa leap year.
"y(if y/4*4=y&(y mod 100<>0||y mod 400=0)then""else"not ")done