(m3-mix-H1 h1 k1)
(defn ^number m3-mix-H1 [h1 k1] (int (-> (int h1) (bit-xor (int k1)) (int-rotate-left 13) (imul 5) (+ (int 0xe6546b64)))))