nitTape :: [a] -> Tape a
initTape [] = error "Cannot initialise an empty tape"

initTape :: [a] -> Tape a
initTape [] = error "Cannot initialise an empty tape"
initTape [] = error "Cannot initialise an empty tape"