# Sample program provided by Knuth in the original document. tape alphabet is blank, one, zero, point; print "point"; go to carry; test: if the tape symbol is "one" then {print "zero"; carry: move left one square; go to test}; print "one"; realign: move right one square; if the tape symbol is "zero" then go to realign.