diff --git a/src/Main0.hs b/src/Main0.hs
index 52e1751..d885019 100644
--- a/src/Main0.hs
+++ b/src/Main0.hs
@@ -27,7 +27,7 @@ main = do args <- getArgs
           (commands,points) <- return $ unzip commandspoints
           seeds <- return ((map (\(seed, _) -> seed)) gmseed)
           putStrLn . encodeJSON $ (packAll id seeds commands)
-          writeFile (file ++ ".output")  (scoredata id (fst $ unzip gmseed) points)
+          writeFile ("scores")  (scoredata id (fst $ unzip gmseed) points)
           
 
 packAll :: Int -> [Int] -> [[Command]] -> [JSONSer]