let is_bissextile_1 =
  let
    f = function n -> ((n mod 4 = 0) & (n mod 100 <> 0)) or (n mod 400 = 0)
  in
    function n -> if n >= 0
                    then f (n)
                    else failwith ("is_bissextile : the argument must be >= 0")