data Bool () where {
    True : Bool ()
    False : Bool ()
};

even : Int -> Bool ();
even x = not (odd x) ;

odd x = not (even x) ;

not x = case x of {
    True => False;
    False => True;
};

f = g;
g = f;