Get a socket.
~~~socket:create 'Sock var-n
~~~
Bind to port 9998.
~~~'9998 @Sock socket:bind drop-pair
~~~
Prepare to listen for connections.
~~~#3 @Sock socket:listen drop-pair
~~~
Serve the user some data.
~~~[ @Sock socket:accept (discard_error_code: drop )
'Hello_from_RETRO\n s:format swap [ socket:send drop-pair ] sip socket:close
] forever
~~~
Clean up.
~~~@Sock socket:close
~~~