Fix combination bug with small inventories

src/Dodge/Initialisation.hs

@@ -1,5 +1,7 @@
 module Dodge.Initialisation where
 import Dodge.Default.World
+--import Dodge.Combine
+--import Dodge.Base.You
 --import Dodge.Base
 --import Dodge.Save
 import Dodge.Data
@@ -39,4 +41,5 @@ initialWorld = defaultWorld
     }
 
 testStringInit :: World -> [String]
-testStringInit w = [show $ length $ _magnets w]
+--testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
+testStringInit = const []