(defparameter loc 1)
(loop for char = (read-char nil nil)
        while char do
                (if (eq char #\Newline) (return))
                ;(format 't "~d~%" (mod (- (char-code char) 65 loc ) 26 ))
                (format 't "~d" (code-char (+ (mod (- (char-code char) 65 loc ) 26 ) 65)))
                (setq loc (incf loc))
)
(format 't "~%")