path: root/tests/chain.apl

worker←{
	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