rosetta-code-compiler-forth/tests/input/flip-flop.in

i = 1;
while (1)
  i = -i;