fromList :: [Alphabet] -> Tape
fromList l = Tape [] (extendingHead l) (extendingTail l)
fromList :: [Alphabet] -> Tape
fromList l = Tape [] (extendingHead l) (extendingTail l)
fromList l = Tape [] (extendingHead l) (extendingTail l)