print Hello World without using any literals

codeiq.lisp

; run with /usr/local/bin/sbcl --no-sysinit --no-userinit --script codeiq.lisp

(defun read-and-print-until-eof (stream char)
  (declare (ignore char))
  (let ((c (read-char stream nil nil)))
    (if c
	(progn (write-char c)
	       (read-and-print-until-eof stream char))
	(sb-ext:exit))))

(set-macro-character #\; #'read-and-print-until-eof)

; Hello World

codeiq2.lisp

; run with /usr/local/bin/sbcl --no-sysinit --no-userinit --script codeiq2.lisp

(defun read-brainfuck-like-comments (stream char)
  (declare (ignore char))
  (labels ((count-whitespace (acc)
	     (let ((c (read-char stream nil nil)))
	       (if c
		   (if (graphic-char-p c)
		       (count-whitespace (1+ acc))
		       (write-char (code-char acc)))
		   (sb-ext:exit)))))
    (count-whitespace 0)))
(set-macro-character #\; #'read-brainfuck-like-comments)

;                                                                        
;                                                                                                     
;                                                                                                            
;                                                                                                            
;                                                                                                               
;                                
;                                                                                       
;                                                                                                               
;                                                                                                                  
;                                                                                                            
;