REBOL [
    Title: "Rebol Daytime Server"
    Date: 4-Dec-2002/13:21
    Version: 1.0.0
    File: %daytime.r
    Author: "Ladislav Mecir"
    Purpose: {A simple Rebol Daytime Server,
answers are sent in Rebol date format.
}
    Email: lmecir@mbox.vol.cz
    Web: http://www.rebolforces.com/~ladislav
    Category: [web net 3]
    Reb: reb://Sites/Ladislav
]

listen-port: open tcp://:13  ; daytime connections listen port

forever [
    daytime-port: first wait listen-port
    insert daytime-port now
    close daytime-port
]