store mem Stack         (MemoryValue16 v) = do
    (MemoryValue8 sp') <- load mem Sp
    store mem Sp (MemoryValue8 $ sp' + 1)
    writeArray (stack mem) sp' v
store mem Stack         (MemoryValue16 v) = do
    (MemoryValue8 sp') <- load mem Sp
    store mem Sp (MemoryValue8 $ sp' + 1)
    writeArray (stack mem) sp' v
store mem Stack         (MemoryValue16 v) = do
    (MemoryValue8 sp') <- load mem Sp
    store mem Sp (MemoryValue8 $ sp' + 1)
    writeArray (stack mem) sp' v