(defn kth-from-last
  [list k]

  (defn algo
    [list k buf i]
    (if (empty? list)
      (if (< i k) "List too small" (get buf (mod i k)))
      (recur (rest list) k (assoc buf (mod i k) (first list)) (inc i))))

  (if (< k 0)
    "Bruh"
    (algo list (inc k) (vector (replicate (inc k) 0)) 0)))

(for [x [-1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21]]
  (println (kth-from-last '(-1 -2 -3 -4 -5 -6 -7 -8 -9 30 1 2 3 4 5 6 7 8 9 20 10) x)))