run :: TransitionFunc -> Tape -> (Integer, [Alphabet])
run f t = run' 0 f (Q "START", t)
run :: TransitionFunc -> Tape -> (Integer, [Alphabet])
run f t = run' 0 f (Q "START", t)
run f t = run' 0 f (Q "START", t)