Rem  BinDouble
Rem  Multiplies an expanded binary number by two


Turing
0,0;0,0,R
0,1;1,0,R
1,0;0,1,R
1,1;2,0,R
2,0;3,1,R
3,0;0,1,S

Tape
0001001011000000
Rem  For example, 5x2
End