(let ((type point2D (record (x int) (y int))) (type rect2D (record (bottomLeft point2D) (bottomRight point2D) (width int) (height int))) (var point point2D nil)) (:= point (new point2D (x 5) (y 10))))