(doseq(x'(226 136 158))(write-byte x(make-stream 1 :element-type'(unsigned-byte 8):direction :output)))