(int-rotate-left x n)
(defn ^number int-rotate-left [x n] (bit-or (bit-shift-left x n) (unsigned-bit-shift-right x (- n))))