 (def tt (k true))
 
 
-(defn distr
+(defhigh distr
   "Very naive implementation"
   [elem seq] (map #(concat %1 [elem]) seq))
 
 
-(defn distl
+(defhigh distl
   "Very naive implementation"
   [elem seq] (map #(cons elem %1) seq))
 

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


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

    (throw (ClassCastException. "Argument is not a valid character."))))


(defhigh pow
  [base exp]
  (cl-math/pow base exp))


(defn fact [n]
