Rem Multiply
Rem Multiplication of two (unary) numbers

Turing    
0,0;0,0,R
0,1;1,1,R
1,0;2,0,R
1,1;1,1,R
2,1;3,0,R
3,0;4,0,R
3,1;3,1,R
4,0;5,1,L
4,1;4,1,R
5,0;6,0,L
5,1;5,1,L
6,0;7,1,R
6,1;6,1,L
7,0;10,0,L
7,1;3,0,R
10,0;11,0,L
10,1;10,1,L
11,0;12,0,R
11,1;11,1,L
12,1;13,0,R
13,0;20,0,R
13,1;1,1,R 
20,0;21,0,R
20,1;20,0,R
21,0;0,0,S
21,1;21,1,R                      

Tape
001111101111000000000000000000000000
Rem  For example, calculate 5 times 4

End