small refactor and cleanup

tests/fib.sl

@@ -0,0 +1,26 @@
+import ../stdlib/stdlib.sl
+import ../stdlib/io.sl
+import ../stdlib/debug.sl
+
+: main
+    1 1 2dup 2dup puti cr puti cr
+    +
+    dup puti cr
+    rot
+    22 dup >r for
+        2dup + dup puti cr
+        rot
+    end
+    "-------" puts
+    r> 3 + puti
+    " numbers printed from the fibonaci sequence" puts
+    0
+;
+
+: main2
+    1 2 while over 100 < do
+        over puti cr
+        swap over +
+    end
+;
+