code. 源码文本：平方列表的独立入口[lp-program]

Uses: 源码文本：包含 square 的 squares 定义

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

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

(write (squares '(1 2 3 4)))
(newline)