Chat server: Difference between revisions

=={{header|Ol}}==

<lang scheme>

(define (timestamp) (syscall 201 "%c"))

 

;(print "\n# " (timestamp) ": new request from " (syscall 51 fd))

(fork (on-accept (syscall 51 fd) fd))))

(loop))))

 

(127.0.0.1 . 55320): see you..

</pre>

 

=={{header|Perl}}==