#!/usr/local/rebol/rebol -cs

REBOL [
        author: 'chl
        date: 2004-02-18
]

print "Content-type: text/html^/^/"
params: decode-cgi any [ system/options/cgi/query-string "" ]
q: any [ select params to-set-word 'q "synerge" ]
template: read %templates/yahoo-vs-google.html
replace/all template "[query]" q

print template