( define sumOfSquares
   ( lambda (L)
     (sumOfSquaresHelper(L '()) )))

( define sumOfSquaresHelper (lambda (L acc)
   (cond
     (( equal? L '()) acc)
     (( = 1 1 ) (cons acc (+ ( * (car L)(car L))))
                (sumOfSquaresHelper (cdr L) acc)))))

(sumOfSquares '(2 2))