#!/home/staff/teachers/zbyszek/bin/mzscheme -qr (load-relative "mycgi.sch") (headerstd) (wypiszliste (list "

Querystring wynosi: " querystring "

")) (newline) (define t (getqs "t")) (if t (wypiszliste (list "

Wartoscia t jest: |" (getqs "t") "|

")) (display "

Nie ma t!

") ) (newline) (display "

Wypisz T:

") (newline)