let is_bissextile_1 = function
 n -> ((n mod 4 = 0) & (n mod 100 <> 0)) or (n mod 400 = 0)