#!/usr/local/bin/rebol -cs
REBOL []
print "Content-type: text/html^/"
query-string: make object! decode-cgi system/options/cgi/query-string
str: either any [
none? query-string none?
in query-string 'str
][
copy "yourname@server.dom"
][
query-string/str
]
result: copy ""
foreach c str [
nr: to-integer c
append result rejoin ["&#" nr ";"]
]
prin {
protect e-mail address against spam spiders
}