;add1.tm: adds 1 to binary number
(MR,0,0,>,MR) ; Move Right
(MR,1,1,>,MR)
(MR, , ,<,ADD)
(ADD,0,1,>,ML) ; ADD one
(ADD, ,1,>,ML)
(ADD,1,0,<,ADD)
(ML,0,0,<,ML) ; Move Left
(ML,1,1,<,ML)
(ML, , , ,STOP)
