anchor.diff:  
   (defpattern pshuf (pattern)
     (list
  -   (repeats :default 1)
  +   (repeats :default :inf)
      (shuffled-list :state t)
      (current-repeats-remaining :state t))
     "pshuf shuffles LIST, then yields each item from the shuffled list, repeating the list REPEATS times.")
  
positive.code: 
  (defpattern pseq (pattern)
    (list
     (repeats :default 1)
     (current-repeats-remaining :state t))
    "pseq yields values from LIST in the same order they were provided, repeating the whole list REPEATS times.
  
  
negative.code: 
  (defpattern pser (pattern)
    (list
     (length :default :inf)
     (current-repeats-remaining :state t)
     (current-index :state t))
    "pser yields values from LIST in the same order they were provided, returning a total of LENGTH values.
  