Esse desafio é semelhante ao Can you Meta Quine?

Um quine é um programa que se produz em STDOUT. Esse desafio é produzir um programa A que, quando executado, produz um programa B no STDOUT. O programa B quando executado produz o programa A em STDOUT. Os programas A e B devem ser escritos (e executados) no mesmo idioma. A questão vinculada restringia A! = B. Isso parecia fácil demais. Portanto, para esta pergunta, insistimos que A e B são antiguidades, usando as seguintes regras:

1. Os programas A e B não podem usar os mesmos caracteres, exceto os espaços em branco e os separadores de instrução e caracteres de pontuação.
2. Os programas A e B devem conter, pelo menos, um caractere que não é um espaço em branco, nem um separador de instrução, nem um caractere de pontuação.
3. Para os fins das regras 1 e 2, o termo 'espaço em branco' exclui qualquer símbolo ou sequência de símbolos que seja uma declaração, operador ou símbolo que seja interpretado (em oposição a um separador). Portanto, no idioma de espaço em branco, não há espaço em branco.
4. Um separador de instruções é um elemento sintático convencionalmente usado na linguagem para separar instruções. Isso incluiria a nova linha em python ou o ponto e vírgula em Java, perl ou C.
5. Um caractere de pontuação é um caractere ASCII que não é um espaço em branco nem está na classe de caracteres de palavras POSIX (ou seja, um sublinhado não é uma pontuação para esse fim) - ou seja ispunct(), retornaria verdadeiro, e não é _.
6. O programa A, quando executado, deve produzir um programa (Programa B) em seu STDOUT, que, quando executado por sua vez, produz o Programa A.
7. Os programas A e B devem estar na mesma linguagem de programação.
8. A linguagem de programação usada deve realmente ser uma linguagem de programação. A menos que você faça um bom caso, sugiro que seja Turing completo.
9. Pelo menos um de A e B deve executar pelo menos uma instrução no idioma.

Isso é código de golfe, então a resposta mais curta vence, sendo a pontuação o comprimento do programa A em bytes (ou seja, o comprimento do programa B não é relevante).

GolfScript, 13 bytes

1{\~\".~"}.~

A saída é

-2{\~\".~"}.~

que gera o programa inicial.

A contagem de bytes inclui o LF à direita, pois a saída da saída o conterá.

Experimente online.

Como funciona

1       # Push 1.
{       # Start code block.
  \~\   # Apply logical NOT to the second topmost element of the stack.
  ".~"  # Push that string.
}       # End code block.
.~      # Duplicate the code block and execute the copy.

GolfScript imprime o conteúdo da pilha após o término.

Pascal (731 caracteres)

Programa A:

program s;{$h+}uses sysutils;const p='program s;{$h+}uses sysutils;const p=';a='a';aa=''';';aaa='a=''';aaaa='''';aaaaa='begin write(lowercase(p+aaaa+p+aa+aaa+a+aa+a+aaa+aaaa+aa+aa+a+a+aaa+aaa+aaaa+aa+a+a+a+aaa+aaaa+aaaa+aa+a+a+a+a+aaa+stringreplace(stringreplace(stringreplace(stringreplace(aaaaa,aaaa,aaaa+aaaa,[rfreplaceall]),''lower''+''c'',''tm''+''p'',[]),''up''+''c'',''lower''+''c'',[]),''tm''+''p'',''up''+''c'',[])+aa+aaaaa))end.';begin write(upcase(p+aaaa+p+aa+aaa+a+aa+a+aaa+aaaa+aa+aa+a+a+aaa+aaa+aaaa+aa+a+a+a+aaa+aaaa+aaaa+aa+a+a+a+a+aaa+stringreplace(stringreplace(stringreplace(stringreplace(aaaaa,aaaa,aaaa+aaaa,[rfreplaceall]),'lower'+'c','tm'+'p',[]),'up'+'c','lower'+'c',[]),'tm'+'p','up'+'c',[])+aa+aaaaa))end.

Programa de saídas B:

PROGRAM S;{$H+}USES SYSUTILS;CONST P='PROGRAM S;{$H+}USES SYSUTILS;CONST P=';A='A';AA=''';';AAA='A=''';AAAA='''';AAAAA='BEGIN WRITE(UPCASE(P+AAAA+P+AA+AAA+A+AA+A+AAA+AAAA+AA+AA+A+A+AAA+AAA+AAAA+AA+A+A+A+AAA+AAAA+AAAA+AA+A+A+A+A+AAA+STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(AAAAA,AAAA,AAAA+AAAA,[RFREPLACEALL]),''LOWER''+''C'',''TM''+''P'',[]),''UP''+''C'',''LOWER''+''C'',[]),''TM''+''P'',''UP''+''C'',[])+AA+AAAAA))END.';BEGIN WRITE(LOWERCASE(P+AAAA+P+AA+AAA+A+AA+A+AAA+AAAA+AA+AA+A+A+AAA+AAA+AAAA+AA+A+A+A+AAA+AAAA+AAAA+AA+A+A+A+A+AAA+STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(AAAAA,AAAA,AAAA+AAAA,[RFREPLACEALL]),'LOWER'+'C','TM'+'P',[]),'UP'+'C','LOWER'+'C',[]),'TM'+'P','UP'+'C',[])+AA+AAAAA))END.

Programa de saídas A.

ROT13 ( não está mais competindo após a atualização da regra )

Não tenho certeza se isso conta como um idioma, mas eu certamente não compensou o desafio. Normalmente, respostas para certos utilitários, como também sedsão aceitos. No entanto, é uma decisão judicial, portanto, se não contar, eu a removerei (há uma meta-discussão em algum lugar sobre o que conta como idioma? Edit: There are now )

A

Ciclos entre Ae N:

~>> echo "A" | rot13
N
~>> echo "A" | rot13 | rot13
A