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

REBOL [
	Title: "Read quotes file and select a quote randomly."
	Date: 18-Mar-2000/16:07:33+1:00
]

quotes: read/lines %95theses.txt
random/seed now
qu: pick quotes random length? quotes

print "Content-type: text/plain^/"
print rejoin ["quote = ^"" qu "^";"]