diff --git a/anna.scm b/anna.scm
index 74efb08..5c35f74 100644
--- a/anna.scm
+++ b/anna.scm
@@ -73,7 +73,10 @@
     (cond
      ((equal? (car data) "PING")
       (pong stream))
-     ((equal? ":.eval" (slist-ref data 3))
+     ((or (equal? ":!rollcall" (slist-ref data 3))
+          (equal? ":!anna" (slist-ref data 3)))
+      (send-message stream +channel+ "Hello! I respond to !rollcall, !anna, and !eval <s-expr>."))
+     ((equal? ":!eval" (slist-ref data 3))
       (let* ((expr (string-concatenate (intersperse " " (cdr (member ":eval" data))))))
         (send-message stream +channel+ (eval (read (open-input-string expr))
                                              (interaction-environment)))))