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