(define lst-ref
  (lambda (lst pos)
    (if (= pos 0)
        (car lst)
        (lst-ref (cdr lst) (- pos 1)))))

(define repetitions-of
  (lambda (copies item)  ; makes a list containing copies repetitions of the item
    (cond ((= copies 0)
           (list))  ; the (list) could also be '()
          ((list    ; the period ended while at this point