(let ((type point2D (record int int)) (type rect2D (record point2D point2D int int)) (var point point2D nil)) (:= point (new point2D 5 10)))