diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 516cf55..f6eb50b 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -1907,6 +1907,14 @@
                 ]
                   (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs)
               )
+
+          ; TOI: Incrementa cont-prg en 1, quita de la pila un elemento numerico, lo convierte a entero y lo coloca al final de la pila.
+          TOI (let [
+                    res (pasar-a-int (last pila)),
+                    nueva_pila (assoc pila (- (count pila) 1) res)
+                ]
+                  (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs)
+            )
        )
   )
 )