     (throw (ClassCastException. "Argument is not a valid character."))))
 
 
-(def power cl-math/pow)
+(defhigh pow
+  [base exp]
+  (cl-math/pow base exp))
 
 
 (defn fact [n]

  (into [] (map #(reduce - %1) (apply map vector args))))


(defn meanpoint
  [& args]
  (let [coeff (/ 1.0 (count args))]

(def tt (k true))


(defhigh distr
  "Very naive implementation"
  [elem seq] (map #(concat %1 [elem]) seq))


(defhigh distl
  "Very naive implementation"
  [elem seq] (map #(cons elem %1) seq))

