Factor mode ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. ! A simple time server USING: accessors calendar calendar.format io io.encodings.ascii io.servers kernel threads ; IN: time-server : handle-time-client ( -- ) now timestamp>rfc822 print ; : <time-server> ( -- threaded-server ) ascii <threaded-server> "time-server" >>name 1234 >>insecure [ handle-time-client ] >>handler ; : start-time-server ( -- ) <time-server> start-server drop ; MAIN: start-time-server x 1! Copyright (C) 2008 Slava Pestov.2! See http://factorcode.org/license.txt for BSD license.34! A simple time server56USING: accessors calendar calendar.format io io.encodings.ascii7io.servers kernel threads ;8IN: time-server910: handle-time-client ( -- )11 now timestamp>rfc822 print ;1213: <time-server> ( -- threaded-server )14 ascii <threaded-server>15 "time-server" >>name16 1234 >>insecure17 [ handle-time-client ] >>handler ;1819: start-time-server ( -- )20 <time-server> start-server drop ;2122MAIN: start-time-server23 Simple mode that handles Factor Syntax (Factor on Wikipedia). MIME types defined: text/x-factor.