LOOP
	r> to last#
    THEN ; msg-class is msg:otrify

:noname ( -- )
    forth:cr ; msg-class is msg:end

\g
\g 
\g ### group description commands ###
\g
\g 

hash: group#

static-a to allocater
align here
groups-class new Constant group-o
dynamic-a to allocater

# Commands #

Version 0.8.9-20190530.
Version 0.9.0-20190606.

net2o separates data and commands.  Data is passed through to higher
layers, commands are interpreted when they arrive.  For connection
requests, a special bit is set, and the address then isn't used as
address, but as IV for the opportunistic encoding.

The command interpreter is a stack machine with two data types: 64

  turn a past message into OTR
* $2B msg-coord ( $:gps -- )
  GPS coordinates
* $2C msg-url ( $:url -- )
  specify message URL
* $2D msg-like ( xchar -- )
  add a like

### group description commands ###

* $20 group-name ( $:name -- )
  group symbolic name
* $21 group-id ( $:group -- )
  group id, is a pubkey
* $22 group-member ( $:memberkey -- )
  add member key
* $23 group-admin ( $:adminkey -- )