sub odd {
    die 'Out of integer range' 
        if $_[ 0 ] & 0xffffffff != $_[ 0 ]; ## Should be done by perl!
    return $_[ 0 ] & 1;
}