(import tcp-server (chicken tcp) (chicken format) (chicken io) (chicken port))

((make-tcp-server 
  (tcp-listen 6502) 
  (lambda () 
    (printf "~A: ~A~%" (read-line) (seconds->string (current-seconds))) ) )
 #t)