(define n (read)) (define lis (cons 1 '(1) )) (define (ans lisx n) (if (= n 1)lisx(ans (cons (+(cadr lisx)(car lisx)) lisx) (- n 1)))) (print (car(ans lis n)))