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

REBOL []

;print "Content-Type: text/plain^/"

query-string: system/options/cgi/query-string

if (length? query-string) > 0 [insert query-string "?"]

print rejoin ["Location: jukebox.m3u" query-string "^/"]