{ this file is TDEMO3.TXT }                                                  
{ this program doubles any unary number }                                  
                                                                             
{ move right to start of the number }                                        
 1 0 : 0 R 1
 1 1 : 0 R 2
{ move right through the number }
 2 0 : 0 R 3
 2 1 : 1 R 2
{ move right through any partial answer }
 3 0 : 1 R 4
 3 1 : 1 R 3
{ insert a marker }
 4 0 : 1 L 5
 4 1 : 1 L 5
{ move left through partial answer }
 5 0 : 0 L 6
 5 1 : 1 L 5                                                                 
{ are we done with the number ? }                                            
 6 0 : 0 R 8                                                                 
 6 1 : 1 L 7                                                                 
{ move left through the number }                                             
 7 0 : 0 R 1                                                                 
 7 1 : 1 L 7                                                                 
{ keeping moving right }                                                     
 8 0 : 0 R 9                                                                 
 8 1 : 0 R 9                                                                 
{ stop when you reach the 1st 0 }                                            
 9 0 : 0 H 9                                                                 
 9 1 : 1 R 9                                                                 
                                                                 
