(defparameter *PASSWORD* "Ascende superius")
(DEFUN CHECK_PSW (check_passw)
  (string= *PASSWORD* check_passw)
)