(in-package :cl-user)

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