# prepare tape write 'B' right write 1 right write 0 right write 1 right write 'E' dump # return to the beginning while read != 'B' do left end dump # invert right while read != 'E' do if read == 0 write 1 else write 0 end right end dump