Driver, Instructions

1 files changed, 2 insertions, 0 deletions

diff --git a/IO.icl b/IO.icl
index f2b0e29..a7cda49 100644
--- a/IO.icl
+++ b/IO.icl
@@ -7,6 +7,8 @@ import ABC.Misc
 
 :: IO :== [Char]
 
+instance toString IO where toString io = {c \\ c <- io}
+
 io_init  :: IO
 io_init = []