anchor.diff:               (setq v (dcdr v))
                b)))))
         
  -(defun bit-gen (n &optional (skip 0) (init #*10))
  +(defun bit-gen (n &optional (init #*10))
     "return a function representing prbs-N. The returned function takes a single argument which is the number of the next bits to generate from the sequence (default 1 bit)."
     (let ((gen (bvlist-gen n init))
           (res #*))
  
positive.code:           (sbeginsp (subseq p 1) g)
            nil)))
  
  (defun sfind (p n &optional (offset 0))
    (let ((gen (bit-gen n offset)))
      (if (sbeginsp p gen)
          offset
          (sfind p n (1+ offset)))))
  
  (defun sfind-all (p n &optional (rem (seq-length n)) (offset 0) (coll nil))
    (if (zerop rem)
        coll
        (let ((gen (bit-gen n)))
          (funcall gen offset)
          (if (sbeginsp p gen)
              (sfind-all p n (1- rem) (1+ offset) (cons offset coll))
              (sfind-all p n (1- rem) (1+ offset) coll)))))
  
negative.code:                  (if (> (length v) c)
                       (subseq v 0 c)
                       v))))
        #'rec)))
  
  (defun num-gen (n &optional (init #*10))
  