Common Lisp (1 номер)

Задан размер массива чисел и значения его элементов. Найти среднее значение и
заменить каждый элемент разностью его исходного и среднего значений.
При работе с массивами можно использовать следующие функции:
make-array dimensions &key element-type initial-element initial-contents
aref array &rest subscripts
array-dimensions array
setf {place value}*
которые соответственно позволяют создать массив, получить доступ к заданной ячейке,
получить размерность массива и связать с заданной ячейкой новое знание.
Только рекурсия!