+runOneInput state ":poke8" = state & ssMachines .~ ssMAchinesNew
+ where machine0 = head $ state ^. ssMachines
+ machine = machine0 & registers . ix 7 .~ 25734
+ & memory . ix 5489 .~ 21
+ & memory . ix 5490 .~ 21
+ & memory . ix 5495 .~ 7
+ ssMAchinesNew = machine : (tail $ state ^. ssMachines)
+