(with-open-file(s"/dev/stdout":direction :output :element-type'(unsigned-byte 8))(labels((w(n)(write-byte n s))(f(x)(w 98)(mapcar #'g(multiple-value-list(floor x 3)))(w 112)(w 10))(g(n)(mapcar #'w(nth n '((111)(206 191)(208 190))))))(mapcar #'f '(1 8 7 3 1 1 5 3 1 5))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).