2_21.scm

(define (square-list items)
  (if (null? items)
      '()
      (cons (expt (car items) 2) (square-list (cdr items)))))
(define (square-list2 items)
  (map (lambda (x) (expt x 2)) items))