: :go   ( a-  ) 1 13 out wait ;      ( start new core with ip set to a )
: go    ( "-  ) ' :go ;              ( parse next 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 )
: cores ( -x  ) -7 5 out wait 5 in ; ( number of running cores )