Redo tree composition

src/Dodge/Room/Containing.hs

@@ -25,6 +25,14 @@ roomsContaining crs its = do
             ++ "-items:" ++ intercalate "," (map (show . _iyBase . _itType) its))
         , pure $ useAll endroom
         )
+roomsContaining' :: RandomGen g => [Creature] -> [Item] -> State g (Tree Room)
+roomsContaining' crs its = do
+    endroom <- join $ takeOne
+        [ randomFourCornerRoomCrsIts crs its 
+        , tanksRoom crs its
+        ]
+    return (pure $ useAll endroom
+        )
 
 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do