(ns common)

(defmacro inherit [& syms]
  (let [f (if (<= 8 (count syms))
            `hash-map
            `array-map)]
    `(~f ~@(mapcat #(list (keyword %) %)
                   syms))))