(setq *print-case* :downcase)

(defparameter *accounts*
  '((Admin (sweatshirt))
     (User1 (samsepi0l))))

(format t "Admin data: ~a ~%" (assoc 'admin *accounts*))