diff --git a/typeconversion.sl b/typeconversion.sl
index d6ce9a4..cc639eb 100644
--- a/typeconversion.sl
+++ b/typeconversion.sl
@@ -62,7 +62,7 @@ word tostr
         2 pick
         2 + pick
         3 pick rot +
-        swap 48 + c!
+        swap 48 + swap 1 - swap c!
         drop
         swap
         1 +
@@ -74,11 +74,12 @@ word tostr
     over for
     rot drop
     end drop
-    swap 1 + swap puts
 end
 
 word main
     "1234" toint 1 + dup puti cr
     tostr
+    2dup
     puts
+    free
 end