(uiop:define-package :binry-hop/debug-sequence
 (:mix :binry-hop/debug-util :binry-hop :cl)
 (:export #:xor-eg)
 (:nicknames :debug-sequence))

(in-package :binry-hop/debug-sequence)

(defun xor-eg ()
 (let* ((s (debug-util:io-open))
        (w (hop-util:make-re/write-stream s #(1 2 3)))
        (r (hop-util:make-reread-stream s)))
  (dolist (ar (list #(0 0 0) #(1 0 1) #(0 1 1) #(1 1 0)))
   (funcall w :memory ar :write t))
  (dotimes (n 8) (print (funcall r)))
  (values s w r)))