path: root/tests/chain.apl

worker←{
	(from msg)←{1 ⍵} RECV ⍬
	⍵≡⍬: ⎕←'DONE'
	⎕←'Worker id ',(⍕⎕self),' (',(⎕self ⎕tasks 1),') got message: ',(⍕msg)
	⎕←'Forwarding from ',(⍕⎕self), ' to ',⍕⍵
	msg SEND ⍵
}
last←worker&'worker'⍣10⊢⍬
'Hello there' SEND last