RosettaCodeData/Task/Quine/Fortran/quine-1.f
2023-07-01 13:44:08 -04:00

1 line
85 B
Forth

character*46::s='("character*46::s=",3a,";print s,39,s,39;end")';print s,39,s,39;end