Sophie
ARCHITECTURE beh OF resistor IS QUANTITY v ACROSS i THROUGH lt to rt; BEGIN v == r * i; END ARCHITECTURE beh;