(dotimes(i 2)(format t" LOLLIPOP ~ALOLLI POP POP "(princ"LOLLI LOLLI LOLLIPOP OH ")(doseq(x'(235 132 140 32 235 130 152 236 157 152))(write-byte x(make-stream 1 :element-type'unsigned-byte :direction :output)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).