# Change 1111 to 4.

(0, ,0,1,r) 
(0,1,1,2,r) 
(3, ,*,4,l) 
(5, ,1,6,r) 
(6, , ,6,r) 
(6,1, ,7,l) 
(6,*, ,8,l) 
(4, ,1,9,r) 
(4,0,1,9,r) 
(4,1,2,9,r) 
(4,2,3,9,r) 
(4,3,4,9,r) 
(4,4,5,9,r) 
(4,5,6,9,r) 
(4,6,7,9,r) 
(4,7,8,9,r) 
(4,8,9,9,r) 
(4,9,0,4,l) 
(9,*,*,6,r) 
(9,0,0,9,r) 
(9,1,1,9,r) 
(9,2,2,9,r) 
(9,3,3,9,r) 
(9,4,4,9,r) 
(9,5,5,9,r) 
(9,6,6,9,r)  
(9,7,7,9,r) 
(9,8,8,9,r) 
(9,9,9,9,r) 
(7, , ,7,l) 
(7,*,*,4,l) 
(8, , ,8,l) 
(8,*, ,8,l) 
(2,1,1,2,r)  #Put an end of string marker
(2, ,*,10,l) 
(10,1,1,10,l)  #Goto lefthand 1
(10, , ,11,r) 
(11,1, ,3,l)