(* Fonctions mutuellement récursives *)        

let rec pair ( n : int ) : bool = 
    if n = 0 then true else 
    if n = 1 then false else impair (n-1)
and impair ( n : int ) : bool  = 
    if n = 1 then true else 
    if n = 0 then false else pair (n-1)
in
 print_int (if pair(5) then 1 else 0);;