(defn zip-chans [a b r]
    (a/go-loop []
      (let [av (a/<! a)
            bv (a/<! b)]
        (when (and (some? av) (some? bv))
          (a/>! r [av bv])
          (recur)
          )
        )
      )
    )