diff --git a/main.io b/main.io
index c7c7e2f..eebc4c3 100644
--- a/main.io
+++ b/main.io
@@ -38,9 +38,14 @@ read := method(
 	print_stack
 )
 
+action_queue := List clone
+
 doall := method(line,
-	actions := line splitNoEmpties
-	actions foreach(v, doword(v))
+	action_queue = line splitNoEmpties
+	while(action_queue size > 0,
+		action := action_queue removeAt(0)
+		doword(action)
+	)
 )
 
 doword := method(word,