tape = Tape {
    bytes = [(Cell 0) | x <- [0..]],
    cursor = 0
}
tape = Tape {
    bytes = [(Cell 0) | x <- [0..]],
    cursor = 0
}
tape = Tape {
    bytes = [(Cell 0) | x <- [0..]],
    cursor = 0
}