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