(m3-mix-K1 k1)
(defn ^number m3-mix-K1 [k1] (-> (int k1) (imul m3-C1) (int-rotate-left 15) (imul m3-C2)))