(define (get-nth n xs)
  (cond [(= n 0) (mcar xs)]
        [(< n 0) (error "list is not long enough")]
        [else (get-nth (- n 1) (mcdr xs))]))

(define (set-nth! n xs v)
  (set! (get-nth n xs) v)
  xs)