혹시 scheme 언어 아시는분 계신가요??

아래 코드를 실행시키면

#lang racket

(require (planet "sicp.ss" ("soegaard" "sicp.plt" 2 1)))

(define w1 (make-vect 0.00 0.85))

(define w2 (make-vect 0.15 0.62))

(define w3 (make-vect 0.30 0.70))

(define w4 (make-vect 0.42 0.70))

(define w5 (make-vect 0.38 0.88))

(define w6 (make-vect 0.40 1.00))

(define w7 (make-vect 0.62 1.00))

(define w8 (make-vect 0.65 0.88))

(define w9 (make-vect 0.60 0.70))

(define w10 (make-vect 0.75 0.70))

(define w11 (make-vect 1.00 0.38))

(define w12 (make-vect 1.00 0.15))

(define w13 (make-vect 0.64 0.48))

(define w14 (make-vect 0.78 0.00))

(define w15 (make-vect 0.62 0.00))

(define w16 (make-vect 0.52 0.30))

(define w17 (make-vect 0.40 0.00))

(define w18 (make-vect 0.25 0.00))

(define w19 (make-vect 0.36 0.52))

(define w20 (make-vect 0.30 0.64))

(define w21 (make-vect 0.15 0.43))

(define w22 (make-vect 0.00 0.67))

(define wave

(segments->painter

(list (make-segment w1 w2)

(make-segment w2 w3)

(make-segment w3 w4)

(make-segment w4 w5)

(make-segment w5 w6)

(make-segment w7 w8)

(make-segment w8 w9)

(make-segment w9 w10)

(make-segment w10 w11)

(make-segment w12 w13)

(make-segment w13 w14)

(make-segment w15 w16)

(make-segment w16 w17)

(make-segment w18 w19)

(make-segment w19 w20)

(make-segment w20 w21)

(make-segment w21 w22)

)))

(paint wave)

이그림이 출력되는데요 근데 코드가 너무길고 불필요하니깐 책에서

(define square-frame
(make-frame (make-vect 0.0 0.0)
(make-vect 1.0 0.0)
(make-vect 0.0 1.0)))

이러한 코드로 예시가 나와있는데

이것을 어떻게 살을 붙여야 실행이 된다는지 잘 모르겠습니다 ㅠㅠ