 (def range-context
   (reify
     p/Context
-    (-get-level [_] ctx/+level-default+)
-
     p/Foldable
     (-foldr [ctx f z xs]
       (let [x (first xs)]

(def lazy-sequence-context
  (reify
    p/Context
    (-get-level [_] ctx/+level-default+)

    p/Semigroup
    (-mappend [_ sv sv']
      (concat sv sv'))

(def string-monoid
  (reify
    p/Context
    p/Semigroup
    (-mappend [_ sv sv']
      (str sv sv'))
