   [1 2 3] => (has-prefix   [2 1]) ; false - order matters
   [1 2 3] => (has-prefix   [2 1] :in-any-order) ; true
   [1 2 3] => (has-prefix  #{2 1}) ; true "
-        :arglists '([expected-prefix looseness?])}
+        :arglists '([expected-prefix]
+                    [expected-prefix looseness?])}
     has-prefix
     (container-checker-maker 'has-prefix
       (has-xfix "prefix" #(re-pattern (str "^" %)) take)))

  [1 2 3] => (has-suffix   [3 2]) ; false - order matters
  [1 2 3] => (has-suffix   [3 2] :in-any-order) ; true
  [1 2 3] => (has-suffix  #{3 2}) ; true "
         :arglists '([expected-suffix looseness?])}
    has-suffix
    (container-checker-maker 'has-suffix
      (has-xfix "suffix" #(re-pattern (str % "$")) take-last)))


  [1 3 2] => (just   [1 2 3] :in-any-order)
  [1 3 2] => (just  #{1 2 3})"
         :arglists '([expected]
                     [expected looseness])}
    just (container-checker-maker 'just
           (fn [actual expected looseness]
             (let [[actual expected looseness] (standardized-arguments actual expected looseness)]
