Network service in a line
Wednesday, April 27, 2011
3:09 PM
A simple Bud hack: make a network chat server in a couple lines of code
nodelist <= connect.payloads
Instantaneously transfer a message coming in on connect to the nodelist channel. 
mcast <~ (mcast * nodelist).pairs { |m,n| [n.key, m.val] }
Eventually respond by multi-casting the message sent to you to all subscribers. 
Pasted from <[link]> 