load mem (Ram addr)    = readArray (memory mem) addr >>= \v -> return $ MemoryValue8 v
load mem (Ram addr)    = readArray (memory mem) addr >>= \v -> return $ MemoryValue8 v
load mem (Ram addr)    = readArray (memory mem) addr >>= \v -> return $ MemoryValue8 v