0. #lang racket
1.  
2. (define (elevar-al-cuadrado x)
3.   (* x x))
4.  
5. (define (cuadrados lst)
6.   (cond
7.     [(lst) (cons (elevar-al-cuadrado (car lst)) (cuadrados (cdr lst)))]
8.     [else '()]))
9.  
10. ;; Prueba:
11. (cuadrados (list 1 2 3 4))
12. ;; Resultado esperado: '(1 4 9 16)

=>

application: not a procedure;

expected a procedure that can be applied to arguments

given: '(1 2 3 4)