9 lines
No EOL
158 B
GLSL
9 lines
No EOL
158 B
GLSL
$inc fvmstd.fp
|
|
|
|
proc main
|
|
# Truth machine (https://esolangs.org/wiki/Truth-machine)
|
|
:getchar
|
|
while dup "1" ld8 == do
|
|
dup :putchar
|
|
endwhile
|
|
endproc |