i-i/2*2!=0

function HonestInt takes integer i returns boolean
    set i = IAbsBJ(i)
    loop
        exitwhen i <= 2
        set i = i - 2
    endloop
    return i == 2
endfunction

i-I2R(R2I(i/2))*2!=0

function ModuloReal takes real dividend, real divisor returns real
    local real modulus = dividend - I2R(R2I(dividend / divisor)) * divisor

    // If the dividend was negative, the above modulus calculation will
    // be negative, but within (-divisor..0).  We can add (divisor) to
    // shift this result into the desired range of (0..divisor).
    if (modulus < 0) then
        set modulus = modulus + divisor
    endif

    return modulus
endfunction

function Ch takes integer Num returns boolean
 return Num - (Num / 2) * 2 == 0
endfunction