rosetta-code-compiler-forth/tests/input/100_doors.in

/* 100 Doors */
i = 1;
while (i * i <= 100) {
    print("door ", i * i, " is open\n");
    i = i + 1;
}