This is from Gersting, exercise 14 page 484
(0110R A machine that duplicates a string of 1's (p484 #14)
(0 *1L state 0: move right to put a * at the end of string
(11a2R
(2aa2R state 2: found a one, move right to plant an A
(2**2R
(2 a3L
(3aa3L state 3: go back to mark another one
(3**3L
(31a2R
(3  4R
(4a14R state 4: change all A's to 1's
(4**4R
(4  5R