local function spiral_wrap_unsigned(value, bits)
    return value % (2 ^ bits)
end
local function spiral_wrap_signed(value, bits)
    local modulus = 2 ^ bits
    value = value % modulus
    if value >= modulus / 2 then value = value - modulus end
    return value
end
local function spiral_mul_mod32(a, b)
    a = a % 4294967296
    b = b % 4294967296
    local a_low = a % 65536
    local a_high = (a - a_low) / 65536
    return (a_low * b + ((a_high * b) % 65536) * 65536) % 4294967296
end
local Heap0, f_c0
Heap0 = function(l0) return { __tag = "Heap0", l0 } end

function f_c0(capt)
    local v0, v1 = (table.unpack or unpack)(capt)
    return function(v2)
        local v3 = v2 == 0
        if v3 then
            return { [1]=v1, [2]=v0 }
        else
            return { [1]=v0, [2]=v1 }
        end
    end
end

local v0 = 3
local v1 = 4
local v2 = { __tag = "Heap0", l0 = v0 }
local v3 = { __tag = "Heap0", l0 = v1 }
local v4 = f_c0({ v2, v3 })
local v5, v6 = (table.unpack or unpack)(v4(1))
local v7 = v5 ~= nil and v5.l0
local v8 = v6 ~= nil and v6.l0
local v9 = spiral_wrap_signed((v7 + v8), 32)
local v10 = v9 == 7
if v10 then
    return 0
else
    return 1
end