#!/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)