2013-04-22: first step: Be able to mirror a file to stdout

first step: Be able to mirror a file to stdout

diff --git a/wisp.w b/wisp.w
--- a/wisp.w
+++ b/wisp.w
@@ -1,21 +1,7 @@
 #!/usr/bin/env guile
 ; !#
 
-;; Currently this file contains tests, how the syntax could be nicer. 
-;; Longterm it should implement wisp in wisp.
-
-; Test
-
-display "Hello World!"
-newline
-
-let : : filename : list-ref ( command-line ) 1
-    let : : origfile : open-file filename "r" ; mode
-        let : : nextchar : read-char origfile
-
-            while : not : eof-object? nextchar
-                display nextchar
-                set! nextchar : read-char origfile
+; first step: Be able to mirror a file to stdout
 
 let* 
     : filename : list-ref ( command-line ) 1
@@ -26,5 +12,4 @@ let*
         display nextchar
         set! nextchar : read-char origfile
 
-
 newline