(defn
m3-fmix
[h1 len]
(as->
(int h1)
h1
(bit-xor h1 len)
(bit-xor h1 (unsigned-bit-shift-right h1 16))
(imul h1 (int 2246822507))
(bit-xor h1 (unsigned-bit-shift-right h1 13))
(imul h1 (int 3266489909))
(bit-xor h1 (unsigned-bit-shift-right h1 16))))