まず
(define (square x) (* x x))
がないとなんのこっちゃ