# prepare tape write 'B' right write 1 right write 0 right write 1 right write 'E' dump # return to the beginning check 'B' do left end dump # invert right check 'E' do |h| comment "Inverting #{h}" condition 0, lambda {write 1}, lambda {write 0} right end dump