(use /fugue)
(import /test-support/a)

(extend-multi a/f [:number] [n] (inc n))

(defproto B a/A child-attr {:allocation :prototype})

(defmulti g [:number] [n] (+ n 2))

(extend-multi a/h [B] [b] (b :name))