(defn merge-sort [A p r]
  (if (< p r)
    (let [q (int (Math/floor (/ (+ p r) 2)))]
      (merge-sort A p q)
      (merge-sort A (inc q) r)
      (merge* A p q r))))