simple "co-expressions as objects" prototype

co_ject.icn

procedure co_foo(state, args[])
  return .(state[args[1]] +:= args[2])
end

procedure co_new()
  local state, foo, msg
  state := table()
  state["something"] := 1
  @(
    foo := create (
      msg := &null,
      repeat (
        msg := (msg @ &source),
        msg := pop(msg) ! ([state] ||| msg)
        )
      )
    )
  return foo
end

procedure main()
  local co
  #&trace := -1
  co := co_new()
  write([co_foo, "something", 2] @ co)
  write([co_foo, "something", 1] @ co)
end