tests/chain.apl


1
2
3
4
5
6
7
8

worker←{
	msg←{1}⍇0
	⎕←'Worker id ',(⍕⎕self),' got message: ',(⍕msg),' forwarding to ',⍕⍵
	⍵≡⍬: ⎕←'DONE'
	msg⍈⍵
}
last←worker&⍣25⊢⍬
_←'Hello there'⍈last