11 lines
202 B
Standard ML
11 lines
202 B
Standard ML
|
machine lamp {
|
||
|
|
event switchOn
|
||
|
|
event switchOff
|
||
|
|
region bulb {
|
||
|
|
state Off starts ends
|
||
|
|
state On
|
||
|
|
}
|
||
|
|
from bulb.Off to buld.On on switchOn
|
||
|
|
from buld.On to buld.Off on SwitchOff
|
||
|
|
}
|