     _ (init-gc)
     _ (mark-stack)
 
-    _ (<-b (llvm/BuildRetVoid))]
+    [val blk] (add-block "loop"
+                         (gen-plan
+                          [val (alloc-amc ::cons_t)
+                           this-blk (get-block)
+                           _ (<-b (llvm/BuildBr this-blk))]
+                          nil))
+
+    _ (<-b (llvm/BuildBr blk))
+
+
+    #_ _ #_(<-b (llvm/BuildRetVoid))]
    nil))
 
 (defn do-it2 []

    _ (<-b (llvm/BuildCondBr small? small not-small))]
   nil))



(defn add-externals []
  (gen-plan

   [casted (<-b (llvm/BuildBitCast x (llvm/PointerType size-t 0) "casted"))
    val (<-b (llvm/BuildLoad casted "loaded"))]
   val))

(defn TYPEID= [x val]
  (gen-plan
   [casted (<-b (llvm/BuildBitCast x (llvm/PointerType size-t 0) "casted"))
    _ (<-b (llvm/BuildStore val casted))]
   casted))


(defllvmstruct mps_ss_t [size-t _zs
