output fix

src/Main0.hs

@@ -44,7 +44,7 @@ packAll id seeds commandLists = zipWith (\x y -> JSONSer id x "lilik0" y) seeds
 scoredata :: Int -> [Int] -> [Int] -> String
 scoredata id seeds points = pretty
   where
-    pretty = foldl (\x (a,b,c) -> (show a) ++ " " ++ (show b) ++  (show c) ++ "\n" ++ x) "" zipdata
+    pretty = foldl (\x (a,b,c) -> (show a) ++ " " ++ (show b) ++  " " ++ (show c) ++ "\n" ++ x) "" zipdata
     zipdata = zip3 ids seeds points
     ids = replicate (length seeds) id