(define-service (rev q) (string-append (list->string (reverse (string->list q))) " is the reverse of " q)) ( ( (

"CODE") (
 (call-with-input-file "Svc.hop" 
	   (lambda (i) (html-string-encode (read-string i)))))
  (
) (

"OUTPUT") (
:action rev ( :type "text" :name "q" :value "") ( :type "submit" :name "btnG" :value "reverse"))))