;; constructor (bind-func Rectangle:[Shape{!a}*,!a,!a,!a,!a]* (lambda (x y w h) (let ((r (ShapeRectangle x y w h))) (Shape 2 null r))))