diff --git a/src/Main0.hs b/src/Main0.hs
index 51ce09b..0d90e58 100644
--- a/src/Main0.hs
+++ b/src/Main0.hs
@@ -32,8 +32,8 @@ main = do args <- getArgs
           commandspoints <- return (map (\(seed,game) -> strat0 game) gmseed)
           (commands,points) <- return $ unzip commandspoints
           seeds <- return ((map (\(seed, _) -> seed)) gmseed)
-          BS.putStrLn $ encode $ (packAll id seeds commands)
           writeFile ("scores")  (scoredata id (fst $ unzip gmseed) points)
+          BS.putStrLn $ encode $ (packAll id seeds commands)
           
 packAll :: Int -> [Int] -> [[Command]] -> [JSONSer] 
 packAll id seeds commandLists = zipWith (\x y -> JSONSer id x "lilik0" y) seeds commandStrings
diff --git a/src/Main1.hs b/src/Main1.hs
index d55b016..97711e4 100644
--- a/src/Main1.hs
+++ b/src/Main1.hs
@@ -32,8 +32,8 @@ main = do args <- getArgs
           commandspoints <- return (map (\(seed,game) -> strat1 game) gmseed)
           (commands,points) <- return $ unzip commandspoints
           seeds <- return ((map (\(seed, _) -> seed)) gmseed)
-          BS.putStrLn $ encode $ (packAll id seeds commands)
           writeFile ("scores")  (scoredata id (fst $ unzip gmseed) points)
+          BS.putStrLn $ encode $ (packAll id seeds commands)
           
 
 packAll :: Int -> [Int] -> [[Command]] -> [JSONSer]