#lang racket

Welcome to DrRacket, version 7.9 [3m].

#lang racket
(require srfi/1)
(define (sum-of-squares-of-top-two first second thirt) ((fold (lambda (acc v) (if (> v acc) v acc)) 0 (first second thirt))))
(sum-of-squares-of-top-two 2 3 1)

application: not a procedure;
 expected a procedure that can be applied to arguments
  given: 2
  arguments...:

(define (max lst)
  (fold (lambda (acc v) (if (> v acc) v acc)) 0 lst))

(cond (and (> acc2 v)  (< acc2 acc)))