Change poke to use folding rather than store incremental ints in vector

src/Dodge/Floor.hs

@@ -42,17 +42,17 @@ initialAnoTree = OnwardList
         $ intersperse (AnTree corDoor)
     [ IntAnno $ AnTree . startRoom
     , AnRoom $ return airlock0
---    , AnRoom slowDoorRoom
+    , AnRoom slowDoorRoom
 --    , AnRoom $ roomCCrits 10
---    , AnTree firstBreather
+    , AnTree firstBreather
 --    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
-    ]
-
-extraAnoList :: [Annotation]
-extraAnoList =
---     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
-    [ AnRoom $ roomCCrits 10
-    , AnRoom $ roomCCrits 10
+--    ]
+--
+--extraAnoList :: [Annotation]
+--extraAnoList =
+----     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
+--    [ AnRoom $ roomCCrits 10
+--    , AnRoom $ roomCCrits 10
     , AnTree $ tToBTree "spawners" <$> spawnerRoom
     , AnRoom pistolerRoom
     , AnRoom doubleCorridorBarrels