I have written several quines in Mathematica that you may appreciate.

Here is one solution:

    quine[x_String] :=   Print[x, ";", FromCharacterCode[10] , "quine[", InputForm[x],    "]"];
    quine["quine[x_String]:=Print[x,\";\",FromCharacterCode[10],\"\ quine[\",InputForm[x]],\"]\""]

And here is a much more fun one, though a little hard to display in StackExchange,


![bitmap quine][1]

where that tiny text is a bitmap that reads

![bitmap detail][2]

The TextRecognize[] command doesn't do well with non-dictionary words, which means it typically does poorly with Mathematica code. I found that it recognized a bitmap of "quine" as "guine" in every font I tested, so I just renamed the function accordingly.

These are not multiquines, but aficionados should like them nonetheless.


  [1]: https://i.sstatic.net/PVVoA.png
  [2]: https://i.sstatic.net/9NeT1.png