anchor.diff:  (add-command "tell" (lambda (bot args sender channel)
                         (send-msg bot channel)))
   
  -(defun google-search (bot query sender channel)
  -  (let ((search-string (regex-replace-all "\\s+" query "+")))
  -    (multiple-value-bind (title url)
  -        (url-info (format nil "http://google.com/search?filter=1&safe=on&q=~A&btnI" search-string))
  -      (send-msg bot channel (format nil "~A: ~A <~A>" sender title url)))))
  +(add-command "cliki" (lambda (bot args sender channel)
  +                       (send-msg bot channel
  +                                 (format nil "~A, I found ~D result~:P. Check it out at <~A> or leave me alone."
  +                                         sender (nth-value 1 (cliki-urls args))
  +                                         (search-url "http://www.cliki.net/admin/search?words=~A" args)))))
  +
  +(defun search-url (engine query)
  +  (format nil engine (regex-replace-all "\\s+" query "+")))
  +
  +(defun google-search (query)
  +  (url-info (search-url
  +             "http://google.com/search?filter=1&safe=on&q=~A&btnI"
  +             query)))
   
   (defun url-info (url)
     (handler-case
  
positive.code:                   (puri:render-uri uri s))))
      (usocket:ns-host-not-found-error () (error "Host not found"))))
  
  (defun decode-html-string (string)
    (html-entities:decode-entities string))
  
  
negative.code: (add-command "ping" (lambda (bot args sender channel)
                       (send-msg bot channel "pong")))
  (add-command "google" (lambda (bot args sender channel)
                          (multiple-value-bind (title url)
                              (google-search args)
                            (send-msg bot channel
                                      (format nil "~A: ~A <~A>"
                                              sender title url)))))
  (add-command "shut" (lambda (bot args sender channel)
                        (send-msg bot channel
                                  (format nil "~A: Fine. Be that way. Tell me to talk when you realize ~
  