anchor.diff:    "Divide NUMBERS, where NUMBERS can be any object that responds to the `next' method. This function is simply a shortcut for (apply #'pnary #'/ numbers)."
     (apply #'pnary #'/ numbers))
   
  -(export '(p+ p- p* p/))
  +(dolist (pat '(p+ p- p* p/))
  +  (pushnew pat *patterns*))
   
   ;;; prerange
   
  
positive.code:     `(pparchain ,@(loop :for i :in (ppc-split pairs)
                          :collect (cons 'pbind i)))))
  
  ;;; pclump
  
  (defpattern pclump (pattern)
  
negative.code:       (pdef pdef-name pattern))
      pattern))
  
  (pushnew 'pbind *patterns*)
  
  (setf (documentation 'pbind 'type) (documentation 'pbind 'function))
  
  (defmethod print-object ((pbind pbind) stream)
  