(defvar A) (defvar B) (setq A (read-line)) (setq B (read-line)) (setq A (concatenate 'list A)) (setq B (concatenate 'list B)) (setq A (sort A #'char>)) (setq B (sort B #'char>)) ;(print A) ;(print B) (if (equal A B) (format 't "YES~%") (format 't "NO~%"))