Welcome to the CHICKEN Scheme pasting service

(define (random-t-rex-quote #!optional (retries 1))
  (let ((result ((sxpath '(// (div (@ (equal? (class "randomquote")))) a *text*))
                 (call-with-input-request "http://www.qwantz.com/index.php" #f html->sxml))))
    (if (pair? result)
        (car result)
        (and (> retries 0)
             (random-t-rex-quote (sub1 retries))))))


(command 'fall-through
         '(: (* any))
         (lambda (message)
           (reply-to message (random-t-rex-quote)))
         public: #t)