max-square-sum.scm

(define (a8 a . r)
  (let
    (
      (m (apply max r))
    )
    (if (>= a m)
      (+ (quadrat a) (quadrat m))
      (apply a8 (append r (list a)))
    )
  )
)


(print (a8 1 2 3 4 5 4 3 -3 9 2 9))