doHistoryEntry w (HistorySetMemory addr bytes) =
    ioAssertTrue $ setMemoryWorker w addr bytes
doHistoryEntry w (HistorySetMemory addr bytes) =
    ioAssertTrue $ setMemoryWorker w addr bytes
doHistoryEntry w (HistorySetMemory addr bytes) =
    ioAssertTrue $ setMemoryWorker w addr bytes