moveRightThree :: TransitionFunc
moveRightThree (Q "START", s) = (Q "TWO", s, R)
moveRightThree :: TransitionFunc
moveRightThree (Q "START", s) = (Q "TWO", s, R)
moveRightThree (Q "START", s) = (Q "TWO", s, R)