;; constructor (bind-func Circle:[Shape{!a}*,!a,!a,!a]* (lambda (x y z) (let ((c (ShapeCircle x y z))) (Shape 1 c null))))