(defvar *print-case* :downcase)

(defvar admin (list :username "sweatshirt" :password "Daemons0!"))

(defvar *accounts* nil)

(push admin *accounts*)

(dolist (account *accounts*)
  (format t "~{ ~a : ~a ~}~%" account)
  (if (and (member "sweatshirt" account) (member "Daemons0!" account))
      (progn
        (format t "Fact.~%"))))