|
#lang preserves-schema #:plugin syndicate/schema-compiler
|
|
|
|
version 1 .
|
|
|
|
BoxState = <BoxState @value int>.
|
|
SetBox = <SetBox @value int>.
|
|
|
|
; BoxCap = BoxState / <Observe =SetBox @observer embedded>.
|
|
; ClientCap = SetBox / <Observe =BoxState @observer embedded>.
|
|
.
|