code. 源码文本：包含 square 的 squares 定义[lp-squares]

Uses: 源码文本：平方函数 square

; 单个数的平方
(define (square x)
  (* x x))

(define (squares xs)
  (map square xs))