@gs259 = hidden constant [24 x i8] c"add1_adhoc_W2k2NCxpNjRd\00"
; -------
@gs260 = hidden constant [35 x i8] c"{i8*, i8*, i64 (i8*, i8*, i64)*}**\00"
; -------
define dllexport fastcc i64 @add1_adhoc_W2k2NCxpNjRd__3881(i8* %_impz,i8* %_impenv, i64 %x) nounwind {
entry:
%_impzPtr = alloca i8*
store i8* %_impz, i8** %_impzPtr
%zone3882 = bitcast i8* %_impz to %mzone*
; setup environment
%impenv = bitcast i8* %_impenv to {{i8*, i8*, i64 (i8*, i8*, i64)*}***}*
%add1_adhoc_W2k2NCxpNjRdPtr_ = getelementptr {{i8*, i8*, i64 (i8*, i8*, i64)*}***}, {{i8*, i8*, i64 (i8*, i8*, i64)*}***}* %impenv, i32 0, i32 0
%add1_adhoc_W2k2NCxpNjRdPtr = load {i8*, i8*, i64 (i8*, i8*, i64)*}***, {i8*, i8*, i64 (i8*, i8*, i64)*}**** %add1_adhoc_W2k2NCxpNjRdPtr_

; setup arguments
%xPtr = alloca i64
store i64 %x, i64* %xPtr


%val3883 = load i64, i64* %xPtr
%val3884 = add i64 %val3883, 1
ret i64 %val3884
}
; -------
@gs261 = hidden constant [77 x i8] c"add1_adhoc_W2k2NCxpNjRd Scheme wrapper error: check the arg arity and types
\00"
; -------
define dllexport ccc {i8*, i8*, i64 (i8*, i8*, i64)*}** @add1_adhoc_W2k2NCxpNjRd_maker(i8* %_impz) nounwind {
entry:
%_impzPtr = alloca i8*
store i8* %_impz, i8** %_impzPtr
%tzone3904 = load i8*, i8** %_impzPtr
%zone3905 = bitcast i8* %tzone3904 to %mzone*

; let assign value to symbol add1_adhoc_W2k2NCxpNjRd
%dat_add1_adhoc_W2k2NCxpNjRd = call i8* @llvm_zone_malloc(%mzone* %zone3905, i64 8)
%add1_adhoc_W2k2NCxpNjRdPtr = bitcast i8* %dat_add1_adhoc_W2k2NCxpNjRd to { i8*, i8*, i64 (i8*, i8*, i64)*}***
%tzone3885 = load i8*, i8** %_impzPtr
%zone3886 = bitcast i8* %tzone3885 to %mzone*
call void @llvm_zone_mark(%mzone* %zone3886)
; malloc closure structure
%clsptr3887 = call i8* @llvm_zone_malloc(%mzone* %zone3886, i64 24)
%closure3888 = bitcast i8* %clsptr3887 to { i8*, i8*, i64 (i8*, i8*, i64)*}*

; malloc environment structure
%envptr3889 = call i8* @llvm_zone_malloc(%mzone* %zone3886, i64 8)
%environment3890 = bitcast i8* %envptr3889 to {{i8*, i8*, i64 (i8*, i8*, i64)*}***}*

; malloc closure address table
%addytable3891 = call %clsvar* @new_address_table()
%var3892 = bitcast [24 x i8]* @gs259 to i8*
%var3893 = bitcast [35 x i8]* @gs260 to i8*
%addytable3894 = call %clsvar* @add_address_table(%mzone* %zone3886, i8* %var3892, i32 0, i8* %var3893, i32 3, %clsvar* %addytable3891)
%address-table3895 = bitcast %clsvar* %addytable3894 to i8*

; insert table, function and environment into closure struct
%closure.table3898 = getelementptr { i8*, i8*, i64 (i8*, i8*, i64)*}, { i8*, i8*, i64 (i8*, i8*, i64)*}* %closure3888, i32 0, i32 0
store i8* %address-table3895, i8** %closure.table3898
%closure.env3899 = getelementptr { i8*, i8*, i64 (i8*, i8*, i64)*}, { i8*, i8*, i64 (i8*, i8*, i64)*}* %closure3888, i32 0, i32 1
store i8* %envptr3889, i8** %closure.env3899
%closure.func3900 = getelementptr { i8*, i8*, i64 (i8*, i8*, i64)*}, { i8*, i8*, i64 (i8*, i8*, i64)*}* %closure3888, i32 0, i32 2
store i64 (i8*, i8*, i64)* @add1_adhoc_W2k2NCxpNjRd__3881, i64 (i8*, i8*, i64)** %closure.func3900
%closure_size3901 = call i64 @llvm_zone_mark_size(%mzone* %zone3886)
call void @llvm_zone_ptr_set_size(i8* %clsptr3887, i64 %closure_size3901)
%wrapper_ptr3902 = call i8* @llvm_zone_malloc(%mzone* %zone3886, i64 8)
%closure_wrapper3903 = bitcast i8* %wrapper_ptr3902 to { i8*, i8*, i64 (i8*, i8*, i64)*}**
store { i8*, i8*, i64 (i8*, i8*, i64)*}* %closure3888, { i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_wrapper3903

; let value assignment
%add1_adhoc_W2k2NCxpNjRd = select i1 true, { i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_wrapper3903, { i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_wrapper3903
store { i8*, i8*, i64 (i8*, i8*, i64)*}** %add1_adhoc_W2k2NCxpNjRd, { i8*, i8*, i64 (i8*, i8*, i64)*}*** %add1_adhoc_W2k2NCxpNjRdPtr

; add data to environment
; don't need to alloc for env var add1_adhoc_W2k2NCxpNjRd
%tmp_envptr3897 = getelementptr {{i8*, i8*, i64 (i8*, i8*, i64)*}***}, {{i8*, i8*, i64 (i8*, i8*, i64)*}***}* %environment3890, i32 0, i32 0
store {i8*, i8*, i64 (i8*, i8*, i64)*}*** %add1_adhoc_W2k2NCxpNjRdPtr, {i8*, i8*, i64 (i8*, i8*, i64)*}**** %tmp_envptr3897


%val3906 = load {i8*, i8*, i64 (i8*, i8*, i64)*}**, {i8*, i8*, i64 (i8*, i8*, i64)*}*** %add1_adhoc_W2k2NCxpNjRdPtr
ret {i8*, i8*, i64 (i8*, i8*, i64)*}** %val3906
}


@add1_adhoc_W2k2NCxpNjRd_var = dllexport global [1 x i8*] [ i8* null ]

@add1_adhoc_W2k2NCxpNjRd_var_zone = dllexport global [1 x i8*] [ i8* null ]

define dllexport ccc void @add1_adhoc_W2k2NCxpNjRd_setter() alwaysinline nounwind {
entry:
%_zone = call ccc %mzone* @llvm_peek_zone_stack()
%_impz = bitcast %mzone* %_zone to i8*
%oldzone1 = getelementptr [1 x i8*], [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var_zone, i32 0, i32 0
%oldzone2 = load i8*, i8** %oldzone1
%oldzone3 = bitcast i8* %oldzone2 to %mzone*
store i8* %_impz, i8** %oldzone1
%closure = call ccc {i8*, i8*, i64 (i8*, i8*, i64)*}** @add1_adhoc_W2k2NCxpNjRd_maker(i8* %_impz)
%ptr = bitcast {i8*, i8*, i64 (i8*, i8*, i64)*}** %closure to i8*
%varptr = bitcast [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var to i8**
store i8* %ptr, i8** %varptr
; destroy oldzone if not null
%test = icmp ne %mzone* %oldzone3, null
br i1 %test, label %then, label %cont
then:
call ccc void @llvm_destroy_zone_after_delay(%mzone* %oldzone3, i64 441000)
br label %cont
cont:
ret void
}


define dllexport ccc i8* @add1_adhoc_W2k2NCxpNjRd_getter() alwaysinline nounwind {
entry:
%ptr = getelementptr [1 x i8*], [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var, i32 0, i32 0
%func = load i8*, i8** %ptr
ret i8* %func
}


define dllexport fastcc i64 @add1_adhoc_W2k2NCxpNjRd(i64 %arg_0) alwaysinline nounwind 
{
entry:
%_zone = call ccc %mzone* @llvm_peek_zone_stack()
%_impz = bitcast %mzone* %_zone to i8*
%ptr = getelementptr [1 x i8*], [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var, i32 0, i32 0
%ptrvar = load i8*, i8** %ptr
%closure_tmp = bitcast i8* %ptrvar to {i8*, i8*, i64 (i8*, i8*, i64)*}**
%closure = load {i8*, i8*, i64 (i8*, i8*, i64)*}*, {i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_tmp 
%fPtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 2
%ePtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 1
%ff = load  i64 (i8*, i8*, i64)*,  i64 (i8*, i8*, i64)** %fPtr
%ee = load i8*, i8** %ePtr
%result = call fastcc i64 %ff(i8* %_impz, i8* %ee, i64 %arg_0)
ret i64 %result
}


define dllexport ccc i64 @add1_adhoc_W2k2NCxpNjRd_native(i64 %arg_0) alwaysinline nounwind 
{
entry:
%_zone = call ccc %mzone* @llvm_peek_zone_stack()
%_impz = bitcast %mzone* %_zone to i8*
%ptr = getelementptr [1 x i8*], [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var, i32 0, i32 0
%ptrvar = load i8*, i8** %ptr
%closure_tmp = bitcast i8* %ptrvar to {i8*, i8*, i64 (i8*, i8*, i64)*}**
%closure = load {i8*, i8*, i64 (i8*, i8*, i64)*}*, {i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_tmp 
%fPtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 2
%ePtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 1
%ff = load  i64 (i8*, i8*, i64)*,  i64 (i8*, i8*, i64)** %fPtr
%ee = load i8*, i8** %ePtr
%result = call fastcc i64 %ff(i8* %_impz, i8* %ee, i64 %arg_0)
ret i64 %result
}


define dllexport ccc i8*  @add1_adhoc_W2k2NCxpNjRd_scheme(i8* %_sc, i8* %args) nounwind
{
entry:
%_zone = call ccc %mzone* @llvm_peek_zone_stack()
%_impz = bitcast %mzone* %_zone to i8*
%arg_0_val = call ccc i8* @list_ref(i8* %_sc, i32 0,i8* %args)
%arg_0_rt_check = call i32 @is_integer(i8* %arg_0_val)
%arg_0_bool = icmp ne i32 %arg_0_rt_check, 0
br i1 %arg_0_bool, label %arg_0_true, label %arg_0_false

arg_0_true:
br label %arg_0_continue

arg_0_false:
%var3907 = bitcast [77 x i8]* @gs261 to i8*
call i32 (i8*, ...) @printf(i8* %var3907)
%arg_0_errret = call ccc i8* @mk_i64(i8* %_sc, i64 0)
ret i8* %arg_0_errret

arg_0_continue:
%arg_0 = call ccc i64  @i64value(i8* %arg_0_val)
%ptr = getelementptr [1 x i8*], [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var, i32 0, i32 0
%ptrvar = load i8*, i8** %ptr
%closure_tmp = bitcast i8* %ptrvar to {i8*, i8*, i64 (i8*, i8*, i64)*}**
%closure = load {i8*, i8*, i64 (i8*, i8*, i64)*}*, {i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_tmp 
%fPtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 2
%ePtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 1
%ff = load  i64 (i8*, i8*, i64)*,  i64 (i8*, i8*, i64)** %fPtr
%ee = load i8*, i8** %ePtr
%result = call fastcc i64 %ff(i8* %_impz, i8* %ee, i64 %arg_0)
%res = call ccc i8* @mk_i64(i8* %_sc, i64 %result)
ret i8* %res
}


define dllexport ccc void @add1_adhoc_W2k2NCxpNjRd_callback(i8* %dat, %mzone* %inzone) alwaysinline nounwind {
entry:
%fstruct = bitcast i8* %dat to {i64}*
%arg_p_0 = getelementptr {i64}, {i64}* %fstruct, i32 0, i32 0
%arg_0 = load i64, i64* %arg_p_0
call ccc void @llvm_push_zone_stack(%mzone* %inzone)
%_impz = bitcast %mzone* %inzone to i8*
%ptr = getelementptr [1 x i8*], [1 x i8*]* @add1_adhoc_W2k2NCxpNjRd_var, i32 0, i32 0
%ptrvar = load i8*, i8** %ptr
%closure_tmp = bitcast i8* %ptrvar to {i8*, i8*, i64 (i8*, i8*, i64)*}**
%closure = load {i8*, i8*, i64 (i8*, i8*, i64)*}*, {i8*, i8*, i64 (i8*, i8*, i64)*}** %closure_tmp 
%fPtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 2
%ePtr = getelementptr {i8*, i8*, i64 (i8*, i8*, i64)*}, {i8*, i8*, i64 (i8*, i8*, i64)*}* %closure, i32 0, i32 1
%ff = load  i64 (i8*, i8*, i64)*,  i64 (i8*, i8*, i64)** %fPtr
%ee = load i8*, i8** %ePtr
%result = call fastcc i64 %ff(i8* %_impz, i8* %ee, i64 %arg_0)
%_nowoldzone = call ccc %mzone* @llvm_pop_zone_stack()
call ccc void @llvm_zone_destroy(%mzone* %_nowoldzone)
ret void
}

; -------