(let ((type room (record (sqft int)))
      (type house (record (addr string) (bedroom room) (living_room room))))
  (new
   house
   (addr "1344 Barry")
   (bedroom (new room (sqft 20)))
   (living_room nil)))