core.clj

(defn in-out-with-both [in out both]
  ((fn iob [[i & is :as iss]
            [o & os :as oss]
            [b & bs]]
     (when b
       (lazy-seq
        (cond (= i b)
              (cons [:in i] (iob is oss bs))
              (= o b)
              (cons [:out o] (iob iss os bs))
              :else
              (cons [:wtf b] (iob is os bs))))))
   in out both))

(comment
  cuhor.core> (in-out-with-both [:x :y :z] [:a :b :c] [:a :b :x :y :c :z])
  ([:out :a] [:out :b] [:in :x] [:in :y] [:out :c] [:in :z]))