(defn refer-private
  "Refers every var in ns into the current ns."
  [ns]
  (doseq [[symbol var] (ns-interns ns)]
    (when (:private (meta var))
      (intern *ns* symbol var))))