(begin

(define make-point

(lambda (x y) (begin

(define point{x,y} (list x y))

(define point{x,y} (set-property "object-name" "point" point{x,y})) )

)

)

(define make-line

(lambda (p1 p2) (begin

(define line{p1,p2} (list p1 p2))

(define line{p1,p2} (set-property "object-name" "line" line{p1,p2})) )

)

)

(define make-text

(lambda (str) (begin

(define text{str} (str))

(define text{str} (set-property "object-name" "text" text{str})) )

)

)

)