now fetching from ram correctly as ram is 32 bit word not byte indexed

hs/Simulation.hs

@@ -46,6 +46,7 @@ simulationLoop n machine = do
   fetchResult <- fetchInstruction machinePeripherals currPc
   let decodeResult = decode fetchResult
   putStrLn |> show decodeResult P.++ debugInsn fetchResult
+  putStrLn $ "PC: " P.++ show currPc
   let pc' = currPc + 4
       cpu' = (cpu machine) { pc = pc' }
       machine' = machine { cpu = cpu' }