------
said = standardQuery "What's your name?" (p_T (do { text_S "Hi there! What's your name?" ; activate greeting textInputField empty }))
greeting :: String -> CGI ()
greeting name = standardQuery "Hello" (do { text_S "Hello " ; text name ; text_S ". This is my first interactive CGI program!" })
where said <==> helo5, code at http://www.informatik.uni-freiburg.de/~thiemann/WASH/Tutoria...
Try it, live (chose Hellow World Personalized):
http://nakalele.informatik.uni-freiburg.de/cgi/WASH/Tutorial...