anchor.diff:    "A pseq yields values from its list in the same order they were provided, repeating the list REPEATS times.")
   
   (defun pseq (list &optional (repeats 1))
  -  "Create an instance of the PSEQ class."
     (make-instance 'pseq
                    :list list
                    :repeats repeats))
  
positive.code:   "A pfunc returns the result of the provided function FUNC.")
  
  (defun pfunc (func)
    "Create an instance of the PFUNC class."
    (make-instance 'pfunc
                   :func func))
  
  
negative.code:   "A pser yields values from its list in the same order they were provided, returning a total of REPEATS values.")
  
  (defun pser (list &optional (repeats 1))
    (make-instance 'pser
                   :list list
                   :repeats repeats))
  