; LLVM IR from Robert-van-Engelen/lisp :: src (lisp-pr)

; Unoptimized IR (clang -disable-llvm-passes):
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-i128:128-f80:128-n8:16:32:64-S128"
target triple = "x86_64-unknown-linux-gnu"

%struct.anon = type { ptr, ptr, i32 }

@PRIM = external dso_local global i32, align 4
@ATOM = external dso_local global i32, align 4
@CONS = external dso_local global i32, align 4
@CLOS = external dso_local global i32, align 4
@MACR = external dso_local global i32, align 4
@NIL = external dso_local global i32, align 4
@sp = external dso_local global i32, align 4
@env = external dso_local global double, align 8
@nil = external dso_local global double, align 8
@prim = external dso_local global [43 x %struct.anon], align 16

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.start.p0(i64 immarg, ptr nocapture) #0

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.end.p0(i64 immarg, ptr nocapture) #0

; Function Attrs: nounwind uwtable
declare dso_local i32 @ord(double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @err(i32 noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local ptr @push(double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local void @unwind(i32 noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @pair(double noundef, double noundef, double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @car(double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @cdr(double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @assoc(double noundef, double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @evlis(double noundef, double noundef) #1

; Function Attrs: nounwind uwtable
declare dso_local double @eval(double noundef, double noundef) #1

; Function Attrs: nounwind uwtable
define dso_local double @step(double noundef %0, double noundef %1) #1 {
  %3 = alloca double, align 8
  %4 = alloca double, align 8
  %5 = alloca ptr, align 8
  %6 = alloca double, align 8
  %7 = alloca ptr, align 8
  %8 = alloca ptr, align 8
  %9 = alloca ptr, align 8
  %10 = alloca i32, align 4
  %11 = alloca i32, align 4
  %12 = alloca i32, align 4
  store double %0, ptr %3, align 8, !tbaa !5
  store double %1, ptr %4, align 8, !tbaa !5
  call void @llvm.lifetime.start.p0(i64 8, ptr %5) #2
  call void @llvm.lifetime.start.p0(i64 8, ptr %6) #2
  call void @llvm.lifetime.start.p0(i64 8, ptr %7) #2
  call void @llvm.lifetime.start.p0(i64 8, ptr %8) #2
  call void @llvm.lifetime.start.p0(i64 8, ptr %9) #2
  call void @llvm.lifetime.start.p0(i64 4, ptr %10) #2
  %13 = load i32, ptr @sp, align 4, !tbaa !9
  store i32 %13, ptr %10, align 4, !tbaa !9
  %14 = load double, ptr @nil, align 8, !tbaa !5
  %15 = call ptr @push(double noundef %14)
  store ptr %15, ptr %5, align 8, !tbaa !11
  %16 = load double, ptr @nil, align 8, !tbaa !5
  %17 = call ptr @push(double noundef %16)
  store ptr %17, ptr %7, align 8, !tbaa !11
  %18 = load double, ptr @nil, align 8, !tbaa !5
  %19 = call ptr @push(double noundef %18)
  store ptr %19, ptr %8, align 8, !tbaa !11
  %20 = load double, ptr @nil, align 8, !tbaa !5
  %21 = call ptr @push(double noundef %20)
  store ptr %21, ptr %9, align 8, !tbaa !11
  br label %22

22:                                               ; preds = %323, %92, %2
  br label %23

23:                                               ; preds = %22
  %24 = load i64, ptr %3, align 8, !tbaa !13
  %25 = lshr i64 %24, 48
  %26 = load i32, ptr @ATOM, align 4, !tbaa !9
  %27 = zext i32 %26 to i64
  %28 = icmp eq i64 %25, %27
  br i1 %28, label %29, label %33

29:                                               ; preds = %23
  %30 = load double, ptr %3, align 8, !tbaa !5
  %31 = load double, ptr %4, align 8, !tbaa !5
  %32 = call double @assoc(double noundef %30, double noundef %31)
  store double %32, ptr %3, align 8, !tbaa !5
  br label %324

33:                                               ; preds = %23
  %34 = load i64, ptr %3, align 8, !tbaa !13
  %35 = lshr i64 %34, 48
  %36 = load i32, ptr @CONS, align 4, !tbaa !9
  %37 = zext i32 %36 to i64
  %38 = icmp ne i64 %35, %37
  br i1 %38, label %39, label %40

39:                                               ; preds = %33
  br label %324

40:                                               ; preds = %33
  %41 = load double, ptr %3, align 8, !tbaa !5
  %42 = call double @car(double noundef %41)
  %43 = load double, ptr %4, align 8, !tbaa !5
  %44 = call double @eval(double noundef %42, double noundef %43)
  %45 = load ptr, ptr %5, align 8, !tbaa !11
  store double %44, ptr %45, align 8, !tbaa !5
  %46 = load double, ptr %3, align 8, !tbaa !5
  %47 = call double @cdr(double noundef %46)
  store double %47, ptr %3, align 8, !tbaa !5
  %48 = load ptr, ptr %5, align 8, !tbaa !11
  %49 = load i64, ptr %48, align 8, !tbaa !13
  %50 = lshr i64 %49, 48
  %51 = load i32, ptr @PRIM, align 4, !tbaa !9
  %52 = zext i32 %51 to i64
  %53 = icmp eq i64 %50, %52
  br i1 %53, label %54, label %94

54:                                               ; preds = %40
  call void @llvm.lifetime.start.p0(i64 4, ptr %11) #2
  %55 = load ptr, ptr %5, align 8, !tbaa !11
  %56 = load double, ptr %55, align 8, !tbaa !5
  %57 = call i32 @ord(double noundef %56)
  store i32 %57, ptr %11, align 4, !tbaa !9
  %58 = load i32, ptr %11, align 4, !tbaa !9
  %59 = zext i32 %58 to i64
  %60 = getelementptr inbounds [43 x %struct.anon], ptr @prim, i64 0, i64 %59
  %61 = getelementptr inbounds %struct.anon, ptr %60, i32 0, i32 2
  %62 = load i32, ptr %61, align 8, !tbaa !15
  %63 = and i32 %62, 1
  %64 = icmp ne i32 %63, 0
  br i1 %64, label %69, label %65

65:                                               ; preds = %54
  %66 = load double, ptr %3, align 8, !tbaa !5
  %67 = load double, ptr %4, align 8, !tbaa !5
  %68 = call double @evlis(double noundef %66, double noundef %67)
  store double %68, ptr %3, align 8, !tbaa !5
  br label %69

69:                                               ; preds = %65, %54
  %70 = load double, ptr %4, align 8, !tbaa !5
  %71 = load ptr, ptr %9, align 8, !tbaa !11
  store double %70, ptr %71, align 8, !tbaa !5
  %72 = load i32, ptr %11, align 4, !tbaa !9
  %73 = zext i32 %72 to i64
  %74 = getelementptr inbounds [43 x %struct.anon], ptr @prim, i64 0, i64 %73
  %75 = getelementptr inbounds %struct.anon, ptr %74, i32 0, i32 1
  %76 = load ptr, ptr %75, align 8, !tbaa !17
  %77 = load double, ptr %3, align 8, !tbaa !5
  %78 = load ptr, ptr %9, align 8, !tbaa !11
  %79 = call double %76(double noundef %77, ptr noundef %78)
  %80 = load ptr, ptr %8, align 8, !tbaa !11
  store double %79, ptr %80, align 8, !tbaa !5
  store double %79, ptr %3, align 8, !tbaa !5
  %81 = load ptr, ptr %9, align 8, !tbaa !11
  %82 = load double, ptr %81, align 8, !tbaa !5
  store double %82, ptr %4, align 8, !tbaa !5
  %83 = load i32, ptr %11, align 4, !tbaa !9
  %84 = zext i32 %83 to i64
  %85 = getelementptr inbounds [43 x %struct.anon], ptr @prim, i64 0, i64 %84
  %86 = getelementptr inbounds %struct.anon, ptr %85, i32 0, i32 2
  %87 = load i32, ptr %86, align 8, !tbaa !15
  %88 = and i32 %87, 2
  %89 = icmp ne i32 %88, 0
  br i1 %89, label %90, label %91

90:                                               ; preds = %69
  store i32 2, ptr %12, align 4
  br label %92

91:                                               ; preds = %69
  store i32 3, ptr %12, align 4
  br label %92

92:                                               ; preds = %91, %90
  call void @llvm.lifetime.end.p0(i64 4, ptr %11) #2
  %93 = load i32, ptr %12, align 4
  switch i32 %93, label %327 [
    i32 2, label %22
    i32 3, label %324
  ]

94:                                               ; preds = %40
  %95 = load ptr, ptr %5, align 8, !tbaa !11
  %96 = load i64, ptr %95, align 8, !tbaa !13
  %97 = lshr i64 %96, 48
  %98 = load i32, ptr @CLOS, align 4, !tbaa !9
  %99 = load i32, ptr @MACR, align 4, !tbaa !9
  %100 = xor i32 %98, %99
  %101 = xor i32 %100, -1
  %102 = zext i32 %101 to i64
  %103 = and i64 %97, %102
  %104 = load i32, ptr @CLOS, align 4, !tbaa !9
  %105 = zext i32 %104 to i64
  %106 = icmp ne i64 %103, %105
  br i1 %106, label %107, label %109

107:                                              ; preds = %94
  %108 = call double @err(i32 noundef 4)
  br label %109

109:                                              ; preds = %107, %94
  %110 = load ptr, ptr %5, align 8, !tbaa !11
  %111 = load i64, ptr %110, align 8, !tbaa !13
  %112 = lshr i64 %111, 48
  %113 = load i32, ptr @CLOS, align 4, !tbaa !9
  %114 = zext i32 %113 to i64
  %115 = icmp eq i64 %112, %114
  br i1 %115, label %116, label %261

116:                                              ; preds = %109
  %117 = load ptr, ptr %5, align 8, !tbaa !11
  %118 = load double, ptr %117, align 8, !tbaa !5
  %119 = call double @cdr(double noundef %118)
  %120 = load ptr, ptr %7, align 8, !tbaa !11
  store double %119, ptr %120, align 8, !tbaa !5
  %121 = load ptr, ptr %7, align 8, !tbaa !11
  %122 = load i64, ptr %121, align 8, !tbaa !13
  %123 = lshr i64 %122, 48
  %124 = load i32, ptr @NIL, align 4, !tbaa !9
  %125 = zext i32 %124 to i64
  %126 = icmp eq i64 %123, %125
  br i1 %126, label %127, label %130

127:                                              ; preds = %116
  %128 = load double, ptr @env, align 8, !tbaa !5
  %129 = load ptr, ptr %7, align 8, !tbaa !11
  store double %128, ptr %129, align 8, !tbaa !5
  br label %130

130:                                              ; preds = %127, %116
  %131 = load ptr, ptr %5, align 8, !tbaa !11
  %132 = load double, ptr %131, align 8, !tbaa !5
  %133 = call double @car(double noundef %132)
  %134 = call double @car(double noundef %133)
  store double %134, ptr %6, align 8, !tbaa !5
  br label %135

135:                                              ; preds = %149, %130
  %136 = load i64, ptr %6, align 8, !tbaa !13
  %137 = lshr i64 %136, 48
  %138 = load i32, ptr @CONS, align 4, !tbaa !9
  %139 = zext i32 %138 to i64
  %140 = icmp eq i64 %137, %139
  br i1 %140, label %141, label %147

141:                                              ; preds = %135
  %142 = load i64, ptr %3, align 8, !tbaa !13
  %143 = lshr i64 %142, 48
  %144 = load i32, ptr @CONS, align 4, !tbaa !9
  %145 = zext i32 %144 to i64
  %146 = icmp eq i64 %143, %145
  br label %147

147:                                              ; preds = %141, %135
  %148 = phi i1 [ false, %135 ], [ %146, %141 ]
  br i1 %148, label %149, label %164

149:                                              ; preds = %147
  %150 = load double, ptr %6, align 8, !tbaa !5
  %151 = call double @car(double noundef %150)
  %152 = load double, ptr %3, align 8, !tbaa !5
  %153 = call double @car(double noundef %152)
  %154 = load double, ptr %4, align 8, !tbaa !5
  %155 = call double @eval(double noundef %153, double noundef %154)
  %156 = load ptr, ptr %7, align 8, !tbaa !11
  %157 = load double, ptr %156, align 8, !tbaa !5
  %158 = call double @pair(double noundef %151, double noundef %155, double noundef %157)
  %159 = load ptr, ptr %7, align 8, !tbaa !11
  store double %158, ptr %159, align 8, !tbaa !5
  %160 = load double, ptr %6, align 8, !tbaa !5
  %161 = call double @cdr(double noundef %160)
  store double %161, ptr %6, align 8, !tbaa !5
  %162 = load double, ptr %3, align 8, !tbaa !5
  %163 = call double @cdr(double noundef %162)
  store double %163, ptr %3, align 8, !tbaa !5
  br label %135, !llvm.loop !18

164:                                              ; preds = %147
  %165 = load i64, ptr %6, align 8, !tbaa !13
  %166 = lshr i64 %165, 48
  %167 = load i32, ptr @CONS, align 4, !tbaa !9
  %168 = zext i32 %167 to i64
  %169 = icmp eq i64 %166, %168
  br i1 %169, label %170, label %217

170:                                              ; preds = %164
  %171 = load double, ptr %3, align 8, !tbaa !5
  %172 = load double, ptr %4, align 8, !tbaa !5
  %173 = call double @eval(double noundef %171, double noundef %172)
  %174 = load ptr, ptr %8, align 8, !tbaa !11
  store double %173, ptr %174, align 8, !tbaa !5
  br label %175

175:                                              ; preds = %190, %170
  %176 = load i64, ptr %6, align 8, !tbaa !13
  %177 = lshr i64 %176, 48
  %178 = load i32, ptr @CONS, align 4, !tbaa !9
  %179 = zext i32 %178 to i64
  %180 = icmp eq i64 %177, %179
  br i1 %180, label %181, label %188

181:                                              ; preds = %175
  %182 = load ptr, ptr %8, align 8, !tbaa !11
  %183 = load i64, ptr %182, align 8, !tbaa !13
  %184 = lshr i64 %183, 48
  %185 = load i32, ptr @CONS, align 4, !tbaa !9
  %186 = zext i32 %185 to i64
  %187 = icmp eq i64 %184, %186
  br label %188

188:                                              ; preds = %181, %175
  %189 = phi i1 [ false, %175 ], [ %187, %181 ]
  br i1 %189, label %190, label %206

190:                                              ; preds = %188
  %191 = load double, ptr %6, align 8, !tbaa !5
  %192 = call double @car(double noundef %191)
  %193 = load ptr, ptr %8, align 8, !tbaa !11
  %194 = load double, ptr %193, align 8, !tbaa !5
  %195 = call double @car(double noundef %194)
  %196 = load ptr, ptr %7, align 8, !tbaa !11
  %197 = load double, ptr %196, align 8, !tbaa !5
  %198 = call double @pair(double noundef %192, double noundef %195, double noundef %197)
  %199 = load ptr, ptr %7, align 8, !tbaa !11
  store double %198, ptr %199, align 8, !tbaa !5
  %200 = load double, ptr %6, align 8, !tbaa !5
  %201 = call double @cdr(double noundef %200)
  store double %201, ptr %6, align 8, !tbaa !5
  %202 = load ptr, ptr %8, align 8, !tbaa !11
  %203 = load double, ptr %202, align 8, !tbaa !5
  %204 = call double @cdr(double noundef %203)
  %205 = load ptr, ptr %8, align 8, !tbaa !11
  store double %204, ptr %205, align 8, !tbaa !5
  br label %175, !llvm.loop !20

206:                                              ; preds = %188
  %207 = load i64, ptr %6, align 8, !tbaa !13
  %208 = lshr i64 %207, 48
  %209 = load i32, ptr @CONS, align 4, !tbaa !9
  %210 = zext i32 %209 to i64
  %211 = icmp eq i64 %208, %210
  br i1 %211, label %212, label %214

212:                                              ; preds = %206
  %213 = call double @err(i32 noundef 4)
  br label %214

214:                                              ; preds = %212, %206
  %215 = load ptr, ptr %8, align 8, !tbaa !11
  %216 = load double, ptr %215, align 8, !tbaa !5
  store double %216, ptr %3, align 8, !tbaa !5
  br label %239

217:                                              ; preds = %164
  %218 = load i64, ptr %3, align 8, !tbaa !13
  %219 = lshr i64 %218, 48
  %220 = load i32, ptr @CONS, align 4, !tbaa !9
  %221 = zext i32 %220 to i64
  %222 = icmp eq i64 %219, %221
  br i1 %222, label %223, label %227

223:                                              ; preds = %217
  %224 = load double, ptr %3, align 8, !tbaa !5
  %225 = load double, ptr %4, align 8, !tbaa !5
  %226 = call double @evlis(double noundef %224, double noundef %225)
  store double %226, ptr %3, align 8, !tbaa !5
  br label %238

227:                                              ; preds = %217
  %228 = load i64, ptr %3, align 8, !tbaa !13
  %229 = lshr i64 %228, 48
  %230 = load i32, ptr @NIL, align 4, !tbaa !9
  %231 = zext i32 %230 to i64
  %232 = icmp ne i64 %229, %231
  br i1 %232, label %233, label %237

233:                                              ; preds = %227
  %234 = load double, ptr %3, align 8, !tbaa !5
  %235 = load double, ptr %4, align 8, !tbaa !5
  %236 = call double @eval(double noundef %234, double noundef %235)
  store double %236, ptr %3, align 8, !tbaa !5
  br label %237

237:                                              ; preds = %233, %227
  br label %238

238:                                              ; preds = %237, %223
  br label %239

239:                                              ; preds = %238, %214
  %240 = load i64, ptr %6, align 8, !tbaa !13
  %241 = lshr i64 %240, 48
  %242 = load i32, ptr @NIL, align 4, !tbaa !9
  %243 = zext i32 %242 to i64
  %244 = icmp ne i64 %241, %243
  br i1 %244, label %245, label %252

245:                                              ; preds = %239
  %246 = load double, ptr %6, align 8, !tbaa !5
  %247 = load double, ptr %3, align 8, !tbaa !5
  %248 = load ptr, ptr %7, align 8, !tbaa !11
  %249 = load double, ptr %248, align 8, !tbaa !5
  %250 = call double @pair(double noundef %246, double noundef %247, double noundef %249)
  %251 = load ptr, ptr %7, align 8, !tbaa !11
  store double %250, ptr %251, align 8, !tbaa !5
  br label %252

252:                                              ; preds = %245, %239
  %253 = load ptr, ptr %5, align 8, !tbaa !11
  %254 = load double, ptr %253, align 8, !tbaa !5
  %255 = call double @car(double noundef %254)
  %256 = call double @cdr(double noundef %255)
  %257 = load ptr, ptr %8, align 8, !tbaa !11
  store double %256, ptr %257, align 8, !tbaa !5
  store double %256, ptr %3, align 8, !tbaa !5
  %258 = load ptr, ptr %7, align 8, !tbaa !11
  %259 = load double, ptr %258, align 8, !tbaa !5
  %260 = load ptr, ptr %9, align 8, !tbaa !11
  store double %259, ptr %260, align 8, !tbaa !5
  store double %259, ptr %4, align 8, !tbaa !5
  br label %323

261:                                              ; preds = %109
  %262 = load double, ptr @env, align 8, !tbaa !5
  %263 = load ptr, ptr %7, align 8, !tbaa !11
  store double %262, ptr %263, align 8, !tbaa !5
  %264 = load ptr, ptr %5, align 8, !tbaa !11
  %265 = load double, ptr %264, align 8, !tbaa !5
  %266 = call double @car(double noundef %265)
  store double %266, ptr %6, align 8, !tbaa !5
  br label %267

267:                                              ; preds = %281, %261
  %268 = load i64, ptr %6, align 8, !tbaa !13
  %269 = lshr i64 %268, 48
  %270 = load i32, ptr @CONS, align 4, !tbaa !9
  %271 = zext i32 %270 to i64
  %272 = icmp eq i64 %269, %271
  br i1 %272, label %273, label %279

273:                                              ; preds = %267
  %274 = load i64, ptr %3, align 8, !tbaa !13
  %275 = lshr i64 %274, 48
  %276 = load i32, ptr @CONS, align 4, !tbaa !9
  %277 = zext i32 %276 to i64
  %278 = icmp eq i64 %275, %277
  br label %279

279:                                              ; preds = %273, %267
  %280 = phi i1 [ false, %267 ], [ %278, %273 ]
  br i1 %280, label %281, label %294

281:                                              ; preds = %279
  %282 = load double, ptr %6, align 8, !tbaa !5
  %283 = call double @car(double noundef %282)
  %284 = load double, ptr %3, align 8, !tbaa !5
  %285 = call double @car(double noundef %284)
  %286 = load ptr, ptr %7, align 8, !tbaa !11
  %287 = load double, ptr %286, align 8, !tbaa !5
  %288 = call double @pair(double noundef %283, double noundef %285, double noundef %287)
  %289 = load ptr, ptr %7, align 8, !tbaa !11
  store double %288, ptr %289, align 8, !tbaa !5
  %290 = load double, ptr %6, align 8, !tbaa !5
  %291 = call double @cdr(double noundef %290)
  store double %291, ptr %6, align 8, !tbaa !5
  %292 = load double, ptr %3, align 8, !tbaa !5
  %293 = call double @cdr(double noundef %292)
  store double %293, ptr %3, align 8, !tbaa !5
  br label %267, !llvm.loop !21

294:                                              ; preds = %279
  %295 = load i64, ptr %6, align 8, !tbaa !13
  %296 = lshr i64 %295, 48
  %297 = load i32, ptr @CONS, align 4, !tbaa !9
  %298 = zext i32 %297 to i64
  %299 = icmp eq i64 %296, %298
  br i1 %299, label %300, label %302

300:                                              ; preds = %294
  %301 = call double @err(i32 noundef 4)
  br label %302

302:                                              ; preds = %300, %294
  %303 = load i64, ptr %6, align 8, !tbaa !13
  %304 = lshr i64 %303, 48
  %305 = load i32, ptr @NIL, align 4, !tbaa !9
  %306 = zext i32 %305 to i64
  %307 = icmp ne i64 %304, %306
  br i1 %307, label %308, label %315

308:                                              ; preds = %302
  %309 = load double, ptr %6, align 8, !tbaa !5
  %310 = load double, ptr %3, align 8, !tbaa !5
  %311 = load ptr, ptr %7, align 8, !tbaa !11
  %312 = load double, ptr %311, align 8, !tbaa !5
  %313 = call double @pair(double noundef %309, double noundef %310, double noundef %312)
  %314 = load ptr, ptr %7, align 8, !tbaa !11
  store double %313, ptr %314, align 8, !tbaa !5
  br label %315

315:                                              ; preds = %308, %302
  %316 = load ptr, ptr %5, align 8, !tbaa !11
  %317 = load double, ptr %316, align 8, !tbaa !5
  %318 = call double @cdr(double noundef %317)
  %319 = load ptr, ptr %7, align 8, !tbaa !11
  %320 = load double, ptr %319, align 8, !tbaa !5
  %321 = call double @eval(double noundef %318, double noundef %320)
  %322 = load ptr, ptr %8, align 8, !tbaa !11
  store double %321, ptr %322, align 8, !tbaa !5
  store double %321, ptr %3, align 8, !tbaa !5
  br label %323

323:                                              ; preds = %315, %252
  br label %22

324:                                              ; preds = %92, %39, %29
  %325 = load i32, ptr %10, align 4, !tbaa !9
  call void @unwind(i32 noundef %325)
  %326 = load double, ptr %3, align 8, !tbaa !5
  store i32 1, ptr %12, align 4
  call void @llvm.lifetime.end.p0(i64 4, ptr %10) #2
  call void @llvm.lifetime.end.p0(i64 8, ptr %9) #2
  call void @llvm.lifetime.end.p0(i64 8, ptr %8) #2
  call void @llvm.lifetime.end.p0(i64 8, ptr %7) #2
  call void @llvm.lifetime.end.p0(i64 8, ptr %6) #2
  call void @llvm.lifetime.end.p0(i64 8, ptr %5) #2
  ret double %326

327:                                              ; preds = %92
  unreachable
}

attributes #0 = { nocallback nofree nosync nounwind willreturn memory(argmem: readwrite) }
attributes #1 = { nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #2 = { nounwind }

!llvm.module.flags = !{!0, !1, !2, !3}
!llvm.ident = !{!4}

!0 = !{i32 1, !"wchar_size", i32 4}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{i32 7, !"uwtable", i32 2}
!4 = !{!"clang version 19.1.0 (git@github.com:llvm/llvm-project.git a4bf6cd7cfb1a1421ba92bca9d017b49936c55e4)"}
!5 = !{!6, !6, i64 0}
!6 = !{!"double", !7, i64 0}
!7 = !{!"omnipotent char", !8, i64 0}
!8 = !{!"Simple C/C++ TBAA"}
!9 = !{!10, !10, i64 0}
!10 = !{!"int", !7, i64 0}
!11 = !{!12, !12, i64 0}
!12 = !{!"any pointer", !7, i64 0}
!13 = !{!14, !14, i64 0}
!14 = !{!"long", !7, i64 0}
!15 = !{!16, !10, i64 16}
!16 = !{!"", !12, i64 0, !12, i64 8, !10, i64 16}
!17 = !{!16, !12, i64 8}
!18 = distinct !{!18, !19}
!19 = !{!"llvm.loop.mustprogress"}
!20 = distinct !{!20, !19}
!21 = distinct !{!21, !19}


; Optimized IR (opt -passes='default<O3>'):
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-i128:128-f80:128-n8:16:32:64-S128"
target triple = "x86_64-unknown-linux-gnu"

%struct.anon = type { ptr, ptr, i32 }

@PRIM = external dso_local local_unnamed_addr global i32, align 4
@ATOM = external dso_local local_unnamed_addr global i32, align 4
@CONS = external dso_local local_unnamed_addr global i32, align 4
@CLOS = external dso_local local_unnamed_addr global i32, align 4
@MACR = external dso_local local_unnamed_addr global i32, align 4
@NIL = external dso_local local_unnamed_addr global i32, align 4
@sp = external dso_local local_unnamed_addr global i32, align 4
@env = external dso_local local_unnamed_addr global double, align 8
@nil = external dso_local local_unnamed_addr global double, align 8
@prim = external dso_local local_unnamed_addr global [43 x %struct.anon], align 16

; Function Attrs: nounwind uwtable
declare dso_local i32 @ord(double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @err(i32 noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local ptr @push(double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local void @unwind(i32 noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @pair(double noundef, double noundef, double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @car(double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @cdr(double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @assoc(double noundef, double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @evlis(double noundef, double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
declare dso_local double @eval(double noundef, double noundef) local_unnamed_addr #0

; Function Attrs: nounwind uwtable
define dso_local double @step(double noundef %0, double noundef %1) local_unnamed_addr #0 {
  %3 = load i32, ptr @sp, align 4, !tbaa !5
  %4 = load double, ptr @nil, align 8, !tbaa !9
  %5 = tail call ptr @push(double noundef %4)
  %6 = load double, ptr @nil, align 8, !tbaa !9
  %7 = tail call ptr @push(double noundef %6)
  %8 = load double, ptr @nil, align 8, !tbaa !9
  %9 = tail call ptr @push(double noundef %8)
  %10 = load double, ptr @nil, align 8, !tbaa !9
  %11 = tail call ptr @push(double noundef %10)
  %12 = bitcast double %0 to i64
  %13 = lshr i64 %12, 48
  %14 = load i32, ptr @ATOM, align 4, !tbaa !5
  %15 = zext i32 %14 to i64
  %16 = icmp eq i64 %13, %15
  br i1 %16, label %._crit_edge136, label %.lr.ph135

._crit_edge136:                                   ; preds = %.backedge, %2
  %.089.lcssa = phi double [ %1, %2 ], [ %.089.be, %.backedge ]
  %.088.lcssa = phi double [ %0, %2 ], [ %.088.be, %.backedge ]
  %17 = tail call double @assoc(double noundef %.088.lcssa, double noundef %.089.lcssa)
  br label %.loopexit

.lr.ph135:                                        ; preds = %2, %.backedge
  %18 = phi i64 [ %187, %.backedge ], [ %13, %2 ]
  %.088133 = phi double [ %.088.be, %.backedge ], [ %0, %2 ]
  %.089132 = phi double [ %.089.be, %.backedge ], [ %1, %2 ]
  %19 = load i32, ptr @CONS, align 4, !tbaa !5
  %20 = zext i32 %19 to i64
  %.not = icmp eq i64 %18, %20
  br i1 %.not, label %21, label %.loopexit

21:                                               ; preds = %.lr.ph135
  %22 = tail call double @car(double noundef %.088133)
  %23 = tail call double @eval(double noundef %22, double noundef %.089132)
  store double %23, ptr %5, align 8, !tbaa !9
  %24 = tail call double @cdr(double noundef %.088133)
  %25 = load i64, ptr %5, align 8
  %26 = lshr i64 %25, 48
  %27 = load i32, ptr @PRIM, align 4, !tbaa !5
  %28 = zext i32 %27 to i64
  %29 = icmp eq i64 %26, %28
  %30 = bitcast i64 %25 to double
  br i1 %29, label %31, label %47

31:                                               ; preds = %21
  %32 = tail call i32 @ord(double noundef %30)
  %33 = zext i32 %32 to i64
  %34 = getelementptr inbounds [43 x %struct.anon], ptr @prim, i64 0, i64 %33
  %35 = getelementptr inbounds i8, ptr %34, i64 16
  %36 = load i32, ptr %35, align 8, !tbaa !11
  %37 = and i32 %36, 1
  %.not103 = icmp eq i32 %37, 0
  br i1 %.not103, label %38, label %40

38:                                               ; preds = %31
  %39 = tail call double @evlis(double noundef %24, double noundef %.089132)
  br label %40

40:                                               ; preds = %38, %31
  %.1 = phi double [ %24, %31 ], [ %39, %38 ]
  store double %.089132, ptr %11, align 8, !tbaa !9
  %41 = getelementptr inbounds i8, ptr %34, i64 8
  %42 = load ptr, ptr %41, align 8, !tbaa !14
  %43 = tail call double %42(double noundef %.1, ptr noundef nonnull %11) #1
  store double %43, ptr %9, align 8, !tbaa !9
  %44 = load double, ptr %11, align 8, !tbaa !9
  %45 = load i32, ptr %35, align 8, !tbaa !11
  %46 = and i32 %45, 2
  %.not104 = icmp eq i32 %46, 0
  br i1 %.not104, label %.loopexit, label %.backedge

47:                                               ; preds = %21
  %48 = load i32, ptr @CLOS, align 4, !tbaa !5
  %49 = load i32, ptr @MACR, align 4, !tbaa !5
  %50 = xor i32 %48, %49
  %51 = xor i32 %50, -1
  %52 = zext i32 %51 to i64
  %53 = and i64 %26, %52
  %54 = zext i32 %48 to i64
  %.not99 = icmp eq i64 %53, %54
  br i1 %.not99, label %58, label %55

55:                                               ; preds = %47
  %56 = tail call double @err(i32 noundef 4)
  %.pre = load i64, ptr %5, align 8
  %.pre150 = load i32, ptr @CLOS, align 4, !tbaa !5
  %57 = bitcast i64 %.pre to double
  %.pre152 = lshr i64 %.pre, 48
  %.pre153 = zext i32 %.pre150 to i64
  br label %58

58:                                               ; preds = %55, %47
  %.pre-phi154 = phi i64 [ %.pre153, %55 ], [ %54, %47 ]
  %.pre-phi = phi i64 [ %.pre152, %55 ], [ %26, %47 ]
  %59 = phi double [ %57, %55 ], [ %30, %47 ]
  %60 = icmp eq i64 %.pre-phi, %.pre-phi154
  br i1 %60, label %61, label %145

61:                                               ; preds = %58
  %62 = tail call double @cdr(double noundef %59)
  store double %62, ptr %7, align 8, !tbaa !9
  %.cast = bitcast double %62 to i64
  %63 = lshr i64 %.cast, 48
  %64 = load i32, ptr @NIL, align 4, !tbaa !5
  %65 = zext i32 %64 to i64
  %66 = icmp eq i64 %63, %65
  br i1 %66, label %67, label %69

67:                                               ; preds = %61
  %68 = load double, ptr @env, align 8, !tbaa !9
  store double %68, ptr %7, align 8, !tbaa !9
  br label %69

69:                                               ; preds = %67, %61
  %70 = load double, ptr %5, align 8, !tbaa !9
  %71 = tail call double @car(double noundef %70)
  %72 = tail call double @car(double noundef %71)
  %73 = bitcast double %72 to i64
  %74 = lshr i64 %73, 48
  %75 = load i32, ptr @CONS, align 4
  %76 = zext i32 %75 to i64
  %77 = icmp eq i64 %74, %76
  %78 = bitcast double %24 to i64
  %79 = lshr i64 %78, 48
  %80 = icmp eq i64 %79, %76
  %81 = select i1 %77, i1 %80, i1 false
  br i1 %81, label %.lr.ph121, label %._crit_edge122

.lr.ph121:                                        ; preds = %69, %.lr.ph121
  %.2119 = phi double [ %88, %.lr.ph121 ], [ %24, %69 ]
  %.091118 = phi double [ %87, %.lr.ph121 ], [ %72, %69 ]
  %82 = tail call double @car(double noundef %.091118)
  %83 = tail call double @car(double noundef %.2119)
  %84 = tail call double @eval(double noundef %83, double noundef %.089132)
  %85 = load double, ptr %7, align 8, !tbaa !9
  %86 = tail call double @pair(double noundef %82, double noundef %84, double noundef %85)
  store double %86, ptr %7, align 8, !tbaa !9
  %87 = tail call double @cdr(double noundef %.091118)
  %88 = tail call double @cdr(double noundef %.2119)
  %89 = bitcast double %87 to i64
  %90 = lshr i64 %89, 48
  %91 = load i32, ptr @CONS, align 4
  %92 = zext i32 %91 to i64
  %93 = icmp eq i64 %90, %92
  %94 = bitcast double %88 to i64
  %95 = lshr i64 %94, 48
  %96 = icmp eq i64 %95, %92
  %97 = select i1 %93, i1 %96, i1 false
  br i1 %97, label %.lr.ph121, label %._crit_edge122, !llvm.loop !15

._crit_edge122:                                   ; preds = %.lr.ph121, %69
  %.091.lcssa = phi double [ %72, %69 ], [ %87, %.lr.ph121 ]
  %.2.lcssa = phi double [ %24, %69 ], [ %88, %.lr.ph121 ]
  %.lcssa108 = phi i1 [ %77, %69 ], [ %93, %.lr.ph121 ]
  %.lcssa107 = phi i64 [ %79, %69 ], [ %95, %.lr.ph121 ]
  %.lcssa106 = phi i1 [ %80, %69 ], [ %96, %.lr.ph121 ]
  br i1 %.lcssa108, label %98, label %125

98:                                               ; preds = %._crit_edge122
  %99 = tail call double @eval(double noundef %.2.lcssa, double noundef %.089132)
  store double %99, ptr %9, align 8, !tbaa !9
  %100 = bitcast double %.091.lcssa to i64
  %101 = lshr i64 %100, 48
  %102 = load i32, ptr @CONS, align 4, !tbaa !5
  %103 = zext i32 %102 to i64
  %104 = icmp eq i64 %101, %103
  br i1 %104, label %.lr.ph130, label %.critedge

.lr.ph130:                                        ; preds = %98, %109
  %.in = phi double [ %117, %109 ], [ %99, %98 ]
  %105 = phi i64 [ %119, %109 ], [ %101, %98 ]
  %.192128 = phi double [ %115, %109 ], [ %.091.lcssa, %98 ]
  %106 = bitcast double %.in to i64
  %107 = lshr i64 %106, 48
  %108 = icmp eq i64 %107, %105
  br i1 %108, label %109, label %123

109:                                              ; preds = %.lr.ph130
  %110 = tail call double @car(double noundef %.192128)
  %111 = load double, ptr %9, align 8, !tbaa !9
  %112 = tail call double @car(double noundef %111)
  %113 = load double, ptr %7, align 8, !tbaa !9
  %114 = tail call double @pair(double noundef %110, double noundef %112, double noundef %113)
  store double %114, ptr %7, align 8, !tbaa !9
  %115 = tail call double @cdr(double noundef %.192128)
  %116 = load double, ptr %9, align 8, !tbaa !9
  %117 = tail call double @cdr(double noundef %116)
  store double %117, ptr %9, align 8, !tbaa !9
  %118 = bitcast double %115 to i64
  %119 = lshr i64 %118, 48
  %120 = load i32, ptr @CONS, align 4, !tbaa !5
  %121 = zext i32 %120 to i64
  %122 = icmp eq i64 %119, %121
  br i1 %122, label %.lr.ph130, label %.critedge, !llvm.loop !17

123:                                              ; preds = %.lr.ph130
  %124 = tail call double @err(i32 noundef 4)
  %.pre151 = load double, ptr %9, align 8, !tbaa !9
  br label %.critedge

125:                                              ; preds = %._crit_edge122
  br i1 %.lcssa106, label %126, label %128

126:                                              ; preds = %125
  %127 = tail call double @evlis(double noundef %.2.lcssa, double noundef %.089132)
  br label %.critedge

128:                                              ; preds = %125
  %129 = load i32, ptr @NIL, align 4, !tbaa !5
  %130 = zext i32 %129 to i64
  %.not101 = icmp eq i64 %.lcssa107, %130
  br i1 %.not101, label %.critedge, label %131

131:                                              ; preds = %128
  %132 = tail call double @eval(double noundef %.2.lcssa, double noundef %.089132)
  br label %.critedge

.critedge:                                        ; preds = %109, %123, %98, %126, %131, %128
  %.293 = phi double [ %.091.lcssa, %126 ], [ %.091.lcssa, %131 ], [ %.091.lcssa, %128 ], [ %.192128, %123 ], [ %.091.lcssa, %98 ], [ %115, %109 ]
  %.3 = phi double [ %127, %126 ], [ %132, %131 ], [ %.2.lcssa, %128 ], [ %.pre151, %123 ], [ %99, %98 ], [ %117, %109 ]
  %133 = bitcast double %.293 to i64
  %134 = lshr i64 %133, 48
  %135 = load i32, ptr @NIL, align 4, !tbaa !5
  %136 = zext i32 %135 to i64
  %.not102 = icmp eq i64 %134, %136
  br i1 %.not102, label %140, label %137

137:                                              ; preds = %.critedge
  %138 = load double, ptr %7, align 8, !tbaa !9
  %139 = tail call double @pair(double noundef %.293, double noundef %.3, double noundef %138)
  store double %139, ptr %7, align 8, !tbaa !9
  br label %140

140:                                              ; preds = %137, %.critedge
  %141 = load double, ptr %5, align 8, !tbaa !9
  %142 = tail call double @car(double noundef %141)
  %143 = tail call double @cdr(double noundef %142)
  store double %143, ptr %9, align 8, !tbaa !9
  %144 = load double, ptr %7, align 8, !tbaa !9
  store double %144, ptr %11, align 8, !tbaa !9
  br label %.backedge

145:                                              ; preds = %58
  %146 = load double, ptr @env, align 8, !tbaa !9
  store double %146, ptr %7, align 8, !tbaa !9
  %147 = load double, ptr %5, align 8, !tbaa !9
  %148 = tail call double @car(double noundef %147)
  %149 = bitcast double %148 to i64
  %150 = lshr i64 %149, 48
  %151 = load i32, ptr @CONS, align 4
  %152 = zext i32 %151 to i64
  %153 = icmp eq i64 %150, %152
  %154 = bitcast double %24 to i64
  %155 = lshr i64 %154, 48
  %156 = icmp eq i64 %155, %152
  %157 = select i1 %153, i1 %156, i1 false
  br i1 %157, label %.lr.ph, label %._crit_edge

.lr.ph:                                           ; preds = %145, %.lr.ph
  %.4114 = phi double [ %163, %.lr.ph ], [ %24, %145 ]
  %.394113 = phi double [ %162, %.lr.ph ], [ %148, %145 ]
  %158 = tail call double @car(double noundef %.394113)
  %159 = tail call double @car(double noundef %.4114)
  %160 = load double, ptr %7, align 8, !tbaa !9
  %161 = tail call double @pair(double noundef %158, double noundef %159, double noundef %160)
  store double %161, ptr %7, align 8, !tbaa !9
  %162 = tail call double @cdr(double noundef %.394113)
  %163 = tail call double @cdr(double noundef %.4114)
  %164 = bitcast double %162 to i64
  %165 = lshr i64 %164, 48
  %166 = load i32, ptr @CONS, align 4
  %167 = zext i32 %166 to i64
  %168 = icmp eq i64 %165, %167
  %169 = bitcast double %163 to i64
  %170 = lshr i64 %169, 48
  %171 = icmp eq i64 %170, %167
  %172 = select i1 %168, i1 %171, i1 false
  br i1 %172, label %.lr.ph, label %._crit_edge, !llvm.loop !18

._crit_edge:                                      ; preds = %.lr.ph, %145
  %.394.lcssa = phi double [ %148, %145 ], [ %162, %.lr.ph ]
  %.4.lcssa = phi double [ %24, %145 ], [ %163, %.lr.ph ]
  %.lcssa105 = phi i64 [ %150, %145 ], [ %165, %.lr.ph ]
  %.lcssa = phi i1 [ %153, %145 ], [ %168, %.lr.ph ]
  br i1 %.lcssa, label %173, label %175

173:                                              ; preds = %._crit_edge
  %174 = tail call double @err(i32 noundef 4)
  br label %175

175:                                              ; preds = %173, %._crit_edge
  %176 = load i32, ptr @NIL, align 4, !tbaa !5
  %177 = zext i32 %176 to i64
  %.not100 = icmp eq i64 %.lcssa105, %177
  br i1 %.not100, label %181, label %178

178:                                              ; preds = %175
  %179 = load double, ptr %7, align 8, !tbaa !9
  %180 = tail call double @pair(double noundef %.394.lcssa, double noundef %.4.lcssa, double noundef %179)
  store double %180, ptr %7, align 8, !tbaa !9
  br label %181

181:                                              ; preds = %178, %175
  %182 = load double, ptr %5, align 8, !tbaa !9
  %183 = tail call double @cdr(double noundef %182)
  %184 = load double, ptr %7, align 8, !tbaa !9
  %185 = tail call double @eval(double noundef %183, double noundef %184)
  store double %185, ptr %9, align 8, !tbaa !9
  br label %.backedge

.backedge:                                        ; preds = %140, %181, %40
  %.089.be = phi double [ %44, %40 ], [ %144, %140 ], [ %.089132, %181 ]
  %.088.be = phi double [ %43, %40 ], [ %143, %140 ], [ %185, %181 ]
  %186 = bitcast double %.088.be to i64
  %187 = lshr i64 %186, 48
  %188 = load i32, ptr @ATOM, align 4, !tbaa !5
  %189 = zext i32 %188 to i64
  %190 = icmp eq i64 %187, %189
  br i1 %190, label %._crit_edge136, label %.lr.ph135

.loopexit:                                        ; preds = %40, %.lr.ph135, %._crit_edge136
  %.6 = phi double [ %17, %._crit_edge136 ], [ %43, %40 ], [ %.088133, %.lr.ph135 ]
  tail call void @unwind(i32 noundef %3)
  ret double %.6
}

attributes #0 = { nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #1 = { nounwind }

!llvm.module.flags = !{!0, !1, !2, !3}
!llvm.ident = !{!4}

!0 = !{i32 1, !"wchar_size", i32 4}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{i32 7, !"uwtable", i32 2}
!4 = !{!"clang version 19.1.0 (git@github.com:llvm/llvm-project.git a4bf6cd7cfb1a1421ba92bca9d017b49936c55e4)"}
!5 = !{!6, !6, i64 0}
!6 = !{!"int", !7, i64 0}
!7 = !{!"omnipotent char", !8, i64 0}
!8 = !{!"Simple C/C++ TBAA"}
!9 = !{!10, !10, i64 0}
!10 = !{!"double", !7, i64 0}
!11 = !{!12, !6, i64 16}
!12 = !{!"", !13, i64 0, !13, i64 8, !6, i64 16}
!13 = !{!"any pointer", !7, i64 0}
!14 = !{!12, !13, i64 8}
!15 = distinct !{!15, !16}
!16 = !{!"llvm.loop.mustprogress"}
!17 = distinct !{!17, !16}
!18 = distinct !{!18, !16}


; Effective O3 passes: BDCEPass,EarlyCSEPass,GVNPass,GlobalOptPass,IPSCCPPass,InferFunctionAttrsPass,InstCombinePass,InstSimplifyPass,JumpThreadingPass,LCSSAPass,LoopRotatePass,LoopSimplifyPass,LoopUnrollPass,ReassociatePass,SROAPass,SimplifyCFGPass,TailCallElimPass