2013-04-17: add the time

add the time

diff --git a/hello-world-server.w b/hello-world-server.w
--- a/hello-world-server.w
+++ b/hello-world-server.w
@@ -3,13 +3,21 @@
 define : hello-world-handler request request-body
   values 
     ' : content-type . : text/plain
+
     let : : text "Hello World!"
-      display : getlogin
       if : string? : getlogin
          set! text : string-append text : getlogin
          set! text : string-append text " Sucker!"
+
+      set! text 
+         string-append text " "
+           number->string : tm:hour : gmtime : current-time
+           . ":"
+           number->string : tm:min : gmtime : current-time
+
       . text
 
+
 use-modules : web server
 
 display : string-append "Server starting. Test it at http://127.0.0.1:8081"