setMemory :: History -> Word64 -> [Word8] -> History
setMemory hist addr contents =
    appendHistory hist $ HistorySetMemory addr contents
setMemory :: History -> Word64 -> [Word8] -> History
setMemory hist addr contents =
    appendHistory hist $ HistorySetMemory addr contents
setMemory hist addr contents =
    appendHistory hist $ HistorySetMemory addr contents