(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))))