store mem (Register r)  (MemoryValue8 v)  = writeArray (registers mem) (fromIntegral $ fromEnum r) v
store mem (Register r)  (MemoryValue8 v)  = writeArray (registers mem) (fromIntegral $ fromEnum r) v
store mem (Register r)  (MemoryValue8 v)  = writeArray (registers mem) (fromIntegral $ fromEnum r) v