Rem  TakeOne
Rem  Subtracts one from the given number

Turing
0,0;0,0,R
0,1;1,0,R
1,0;1,0,S
1,1;1,1,R
Tape
00111111000
End