(let ((type room (record int)) (type house (record string room room)))
  (new house "1344 Barry" (new room 20) nil))