: :go     (  a-  ) 1 13 out wait ;         ( start new core with ip set to a )
: go      (  "-  ) ' 0; :go ;              ( parse a word and run it on a new core )
: ->c     ( xy-  ) 2 out wait ;            ( send x to channel y )
: c->     (  x-y ) 1 out wait 1 in ;       ( receive y from channel x )
: delchan (  x-  ) dup 1 out 2 out wait ;  ( delete channel )