functasy/examples/src.txt

An esoteric Turing complete programming language

var not = [a]{
  a(0, 1);
};

var f = {
  more()({
    write(not(not(read())));
    write(read());
    write(read());
    write(read());

    write(read());
    write(read());
    write(read());
    write(read());
    f();
  }, 0)();
};

f();