code. 源码文本：平方函数 square[lp-square]

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