(in-package :cl-user)
 
 (defun main ()
   (format t "Hello, World!~%~a"
           (alexandria:read-stream-content-into-string *standard-input*)))