%%HP: T(1)A(R)F(.); « DTAG DUP IF TYPE 2 == THEN  CH « 1 CH SIZE FOR I CH I DUP SUB NUM IF DUP DUP DUP DUP 78 Š SWAP 91 < AND SWAP 110 Š ROT 123 < AND OR THEN 13 - ELSE IF DUP DUP DUP DUP 65 Š SWAP 78 < AND SWAP 97 Š ROT 110 < AND OR THEN 13 + END END CHR NEXT 2 CH SIZE START + NEXT Rot13 TAG CH UnRot13 TAG » ELSE "Erreur, entrez une chaine" END »