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