Разложение в ряд Тейлора (XLisp)

Формулировка задачи:

Здравствуйте! Помогите пожалуйста со следующей задачей: Дано X и натуральное N. Вычислить sin(X), используя разложение в ряд Тейлора. В разложении учитывать N членов ряда. Функцию необходимо написать с использованием управляющей конструкции DOlist. На этот раз никаких "наработок" и соображений у меня на этот счёт нет( Всем заранее спасибо.

Решение задачи: «Разложение в ряд Тейлора (XLisp)»

textual
                            Листинг программы 
                        

                              static BigInteger findMax(int N) {
    BigInteger p = BigInteger.TEN.pow(N);
    BigInteger pp = p.multiply(p);
    for (BigInteger sum = TWO; ; sum = sum.add(BigInteger.ONE)) {
      BigInteger base = pp.subtract(p.multiply(sum));
      for (BigInteger a=sum.divide(TWO); a.compareTo(BigInteger.ZERO) > 0; a=a.subtract(BigInteger.ONE)) {
        BigInteger t = base.add(a.multiply(sum.subtract(a)));
                        