(require-extension tcp-server tcp posix)

(tcp-server-accept-connection-procedure (lambda (c) (print "Hello World!")))

((make-tcp-server
  (tcp-listen 7010)
  (lambda ()
    (write-line (seconds->string (current-seconds)))
   ))
#t)