fun isEven x =
    if x = 0 then
        true
    else if x < 0 then
        isEven (~x)
    else
        isOdd (x-1);

fun isOdd x =
    if x = 0 then
        false
    else
        isEven (x-1);