(define-service (rev q) (string-append (list->string (reverse (string->list q))) " is the reverse of " q)) ( (
(call-with-input-file "Svc.hop" (lambda (i) (html-string-encode (read-string i))))) () ( "OUTPUT") (