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