diff --git a/stdlib/stdlib.sl b/stdlib/stdlib.sl
index 1444064..aea5c84 100644
--- a/stdlib/stdlib.sl
+++ b/stdlib/stdlib.sl
@@ -1,3 +1,10 @@
+: debug
+	for
+		puti cr
+	next
+	exit
+;
+
 # : int3 ( -- )
 :asm int3 {
 	int3
diff --git a/strconcat.sl b/strconcat.sl
index ab7503a..b0d0c9b 100644
--- a/strconcat.sl
+++ b/strconcat.sl
@@ -3,8 +3,10 @@ import stdlib/io.sl
 
 : strconcat
     0 pick 3 pick +
-    >r >r >r >r >r
-    8 alloc
+    dup
+    >r >r >r >r >r >r
+    5 rpick
+    alloc
     r> r>
     dup >r
     strcpy
@@ -20,6 +22,9 @@ import stdlib/io.sl
     swap
     0 rpick
     nip
+    rot
+    drop
+    rdrop rdrop rdrop
 ;
 
 : alloc
@@ -64,7 +69,7 @@ import stdlib/io.sl
 ;
 
 : main
-    "hello " "world"
+    "hello world hello world hello " "world hello world hello world"
     strconcat
     puts
 ;
\ No newline at end of file