;;; 2.4.scm
;;; $Id: 2.4.scm 1.2 2024/12/07 12:28:36 s Exp $

(define (main args)
  (define (f x) (+ -1 x (expt x 2)))
  (define (g x) 
    (define (df x) (+ 1 (* 2 x)))
    (- x (/ (f x) (df x))))

  (define la0 1)
  (define la1 (g la0))
  (define la2 (g la1))
  (define la3 (g la2))
  (define la4 (g la3))

  (print "2.4.scm")
  (print "")
  (print "la0= " la0)
  (print "la1= " la1)
  (print "la2= " la2)
  (print "la3= " la3)
  (print "la4= " la4)
  (print "")
  (print "f(la0)= " (f la0))
  (print "f(la1)= " (f la1))
  (print "f(la2)= " (f la2))
  (print "f(la3)= " (f la3))
  (print "f(la4)= " (f la4))

  0)

;;; end