(define (squares myList)
  (if (null? myList) '()
      (cons (list (car myList) (* (car myList) (car myList))) 
            (squares (cdr myList)))))

> (squares '(8 16 32 64))
((8 64) (16 256) (32 1024) (64 4096))

(define (sumOfFunction function myList)
  (apply + (map function myList)))

(define (log2 number)
  (/ (log number) (log 2)))

(define (factorial n)
  (if (<= n 1) 1
      (* n (factorial (- n 1)))))

> (squares '(8 16 32 64))
((8 64) (16 256) (32 1024) (64 4096))

> (sumOfFunction factorial '(1 2 3 4 5))
153
> (sumOfFunction factorial '(1 2 3 4))
33
> (sumOfFunction factorial '(1 2 3))
9

> (sumOfFunction log2 '(2 4 8 16 33))
15.044394119358454

> (sumOfFunction log2 '(2 4 8 1024))
16.0

> (sumOfFunction log2 '(2 4 8 1024))
16.0
> (sumOfFunction sqrt '(9 100 144))
25
> (sumOfFunction sqrt '(4 100))
12

(define (sumOfFunction function myList)   argument 1 is a function
  (apply + (map function myList)))                        --------
                                          argument 2 is a list
                                                          ----