Too bad the following doesn't work:
arc> (= vampire (obj teeth "fangs" hair "black" food "blood")) #hash((hair . "black") (food . "blood") (teeth . "fangs")) arc> (= Dracula (inst 'vampire)) #hash()