generate "Hello World" without including any literal.

hello world

(defmacro def-print-string (name string)
  `(defun ,name ()
     (let ((one (count t'(t))))
       (print
        (coerce
         (mapcar #'code-char
                 (list
                  ,@(loop :for i :across string
                       :collect
                       `(+ ,@(loop :for j := (char-code i) :then (floor j #.(count t'(t t)))
                                :for to-collect := 'one :then `(ash ,to-collect one)
                                :until (zerop j)
                                :unless (zerop (mod j #.(count t'(t t))))
                                :collect to-collect)))))
         'string)))))

(def-print-string hello-world "Hello World")