(loop(if(=(set'n(read))1)(doseq(x'(226 151 135 10))(write-byte x(make-stream 1 :element-type'unsigned-byte :direction :output)))(dotimes(i n)(format t"~[/~V@{--~}\\~:;~*~VT\\~V@{ ~}/~]
"i(1- n)i(- n i 1)t))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).