-- Convenience functions
toList :: Tape -> [Alphabet]
toList t = (reverse (left t)) ++ [current t] ++ (right t)
toList :: Tape -> [Alphabet]
toList t = (reverse (left t)) ++ [current t] ++ (right t)
toList t = (reverse (left t)) ++ [current t] ++ (right t)