8 lines
137 B
Text
8 lines
137 B
Text
QUINE
|
|
NEW I,L SET I=0
|
|
FOR SET I=I+1,L=$TEXT(+I) Q:L="" WRITE $TEXT(+I),!
|
|
KILL I,L
|
|
QUIT
|
|
|
|
SMALL
|
|
S %=0 F W $T(+$I(%)),! Q:$T(+%)=""
|