diff --git a/wip-duuqnd/compiler.lisp b/wip-duuqnd/compiler.lisp
index 8d4c7eb..415c672 100644
--- a/wip-duuqnd/compiler.lisp
+++ b/wip-duuqnd/compiler.lisp
@@ -91,6 +91,11 @@
   (format-inst t "PLA")
   (format-inst t "TAX"))
 
+(defmethod compile-starting-at ((node node))
+  (generate-code node)
+  (unless (null (next node))
+    (compile-starting-at (next node))))
+
 (defun make-call (callee args)
   (let ((arguments
           (loop :for (constp value) :in args