(command 'fall-through
	 '(* any)
	 (lambda (message)
	   (reply-to message "what?"))
	 public: #t)

(command 'authorize
	 '(: "authorize" (+ whitespace) 
	     (submatch (+ (or alphanumeric "-" "_" "." "`"))))
	 (lambda (m nick)
	   ($ 'operators (cons nick ($ 'operators)))
	   (reply-to m (format "~A is now authorized" nick) prefixed: #f)))