CLIENT: USING: calendar.format io io.sockets io.encodings.ascii ; IN: simple-client : c2s ( hostname -- ) 1234 ascii [ readln ] with-client ; MAIN: c2s SERVER: USING: io io.servers.connection accessors threads prettyprint io.sockets ; IN: simple-server : handle-client ( -- ) "connected" ; : ( -- threaded-server ) "ping-server" >>name 1234 >>insecure [ handle-client ] >>handler ; : start-simple-server ( -- threaded-server ) [ start-server ] in-thread ; MAIN: start-simple-server