P
(define (a x1 y1) (make-point x1 y1))
(define (b x2 y2) (make-point x2 y2))
(define (AB a b) (make-segment a b))
(print-point (midpoint-segment (AB (a x1 y1) (b x2 y2)))))
Size: a a a
P
P
P
P
PG
AZ
PG
AZ
AZ
A
PG
PG
AZ
PG
PG
(setq a-hook '())
работаетVL
AZ
(setq a-hook '())
работаетA
VL