(coerce ((lambda (chn) (let* ((n (length chn))(rez (make-array n)))
(dotimes (x n rez) (setf (aref rez x) (code-char (1+ (char-code (aref
chn x)))))))) "totopapa reste)la") 'string)

"Sois dornavant sur tes gardes : avec ton horloge et le contenu de
mes derniers messages, nous sommes srement reprs et fichs par la
C.I.A."

(coerce ((lambda (chn) (let* ((n (length chn))(rez (make-array n)))
(dotimes (x n rez) (setf (aref rez x) (code-char (1- (char-code (aref
chn x))))))))
"Tpjt!epsobwbou!tvs!uft!hbseft!;!bwfd!upo!ipsmphf!fu!mf!dpoufov!efnft!efsojfst!nfttbhft-!opvt!tpnnft!tsfnfou!sfqst!fu!gjdit!qbs!mbD/J/B/")
'string)