(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))))