1 files changed, 7 insertions, 0 deletions
diff --git a/BStack.icl b/BStack.icl
index 8ca4017..a1caafd 100644
--- a/BStack.icl
+++ b/BStack.icl
@@ -11,8 +11,15 @@ where
 	(==) (Int m)  (Int n)  = m == n
 	(==) _        _        = False
 
+instance toString Basic
+where
+	toString (Bool b) = toString b
+	toString (Int i)  = toString i
+
 :: BStack :== [Basic]
 
+instance toString BStack where toString xs = "[" <++ (",", xs) <+ "]"
+
 bs_copy   :: BSrc BStack -> BStack
 bs_copy i s = [bs_get i s:s]