#lang racket
(require srfi/1)
(define (max lst)
   (
    fold (lambda (acc v)
        (if (> v (car acc))
            (list v (car acc))
            (if (> v (cadr acc))
                (list (car acc) v)
                acc)))
      '(0 0)
      lst))

(define (sum-of-squares-of-top-two first second third) ((define lst (list first second third))
                                                        (apply + (map sqr (max lst)))))
(sum-of-squares-of-top-two 2 3 1)