Написать функцию, использующую метод Ньютона для вычисления квадратного корня - Lisp

Написать функцию, использующую метод Ньютона для вычисления квадратного корня. Метод Ньютона вычисления квадратного корня из числа x начинается с выбора начального приближения y. Это приближение считается достаточно точным, если | x - y2 | <= err, где err – некоторая заранее определенная погрешность. В противном случае более точным приближением будет 1/2 *(y + x/y), которое можно вычислить и точно так же подвергнуть проверке на погрешность. Для получения абсолютной величины числа используйте функция abs: (abs -5) = 5. Пример: ; вычисления квадратного корня из числа 5 ; начальное приближение 1 ; уровень допустимой погрешности 0.05 >(newton 5 1 0.05) 2.2380953