diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 22d3d70..39c826b 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -2018,10 +2018,10 @@
 ; 0 nil
 ; nil
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;TODO
-;(defn dump
-;
-;)
+(defn dump [&args]
+  (print "\n0 [POPREF 2]\n1 [PUSHFI 2]\n2 MUL\n3 [PUSHFI 1]\n4 ADD\n5 NEG\nnil")
+  nil
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; YA-DECLARADO-LOCALMENTE?: Recibe un identificador y un contexto (un vector formado por dos subvectores: el primero
diff --git a/test/rustint/core_test.clj b/test/rustint/core_test.clj
index b8e34d7..7be9977 100644
--- a/test/rustint/core_test.clj
+++ b/test/rustint/core_test.clj
@@ -205,3 +205,14 @@
     (is (= (palabra-reservada? 13) false))
   )
 )
+
+(deftest dump-01
+  (testing "Test 01 dump"
+    (let [
+          printed (with-out-str (dump '[[POPREF 2] [PUSHFI 2] MUL [PUSHFI 1] ADD NEG]))
+      ]
+      (is (= printed "\n0 [POPREF 2]\n1 [PUSHFI 2]\n2 MUL\n3 [PUSHFI 1]\n4 ADD\n5 NEG\nnil"
+))
+    )
+  )
+)