-- Writes a character to the current head of the tape
write :: Tape -> Alphabet -> Tape
write t s = Tape (left t) s (right t)
write :: Tape -> Alphabet -> Tape
write t s = Tape (left t) s (right t)
write t s = Tape (left t) s (right t)