deftype & applyTo problem illustrated

deftype-apply.clj

(deftype Foo [x y]
  clojure.lang.IFn
  (invoke [_ a] (case a 0 x, 1 y))
  (invoke [_ a nf] (case a 0 x, 1 y nf)))

(def f (Foo. 23 42))

(f 0) ; => 23
(f 2 -1) ; => -1
(apply f [0]) ; AbstractMethodError clojure.core/apply (core.clj:624)

;; with applyTo...
(deftype Foo [x y]
  clojure.lang.IFn
  (invoke [_ a] (case a 0 x, 1 y))
  (invoke [_ a nf] (case a 0 x, 1 y nf))
  (applyTo [_ [a nf :as args]]
    (if (> 3 (count args))
      (case a 0 x, 1 y nf)
      (throw (IllegalArgumentException.)))))

(def f (Foo. 23 42))
(apply f [0]) ; => 23
(apply f [2 -1]) ; => -1

;; Question: How to achieve this for CLJS?