let rec(!)?(x=read_int())y=Printf.printf"%d is %sa leap year.
"x[|"not ";""|].(x/4*4/x-x/100*100/x+x/y*y/x);!y;;!400