(defmacro macro-a
  ([elem] nil)
  ([elem func] [(if (seq? func)
                 (with-meta `(~(first func) ~elem ~@(next func)) (meta func))
                 (list func elem))])
  ([elem func & funcs]
     `(flatten [(macro-a ~elem ~func) (macro-a ~elem ~@funcs)])))