PROTOCOL PROTO
  CASE
    foo
:
PROC P ()
  CHAN OF INT c:
  c ! foo
: