Rem  Subtraction
Rem  Subtraction 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,0;2,0,S
2,1;3,1,R
3,0;4,0,L
3,1;3,1,R
4,1;5,0,L
5,0;6,0,L
5,1;5,1,L
6,0;7,0,R
6,1;6,1,L
7,1;1,0,R                      

Tape
0000000111111111011111000000000
Rem  For example 9 take 5

End