if i-i/2-i/2=1then
 return true
else
 return false
endif

function HonestInt takes integer i returns boolean
    local real r = I2R(IAbsBJ(i))

    loop
        exitwhen r <= 2
        set r = r - 2
    endloop

    set i = R2I(r)

    if i == 2 then
        return true
    endif

    return false
endfunction

function Ch takes integer i returs boolean
 return (ModuloReal(i,2)==0)
endfunction

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

return (i+1)/2 == i/2

if i<0then
 set i=(-1)*i
endif