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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page