%%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
»