
/* Takes a number in unary representation and
   multiplies it by two
*/

/* Default Tape: Multiply 8 by 2 */
#define tape I I I I I I I I


#define start_O	O, right, start
#define start_I	O, left, st1
#define st1_O	I, left, st2
#define st2_I	I, left, st2
#define st2_O	I, right, st3
#define st3_I	I, right, st3
#define st3_O	O, right, st4
#define st4_O	O, left, stop
#define st4_I	O, left, st1

