RosettaCodeData/Task/Quine/Fortran/quine-1.f
2016-12-05 22:15:40 +01: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