done coding functionality to create a string suitable for exporting

fcore/quad-tree.sml

@@ -457,7 +457,7 @@ struct
       toBintree tree
     end
 
-  fun toStringFolder ({x, ex, y, ey, data = {r, g, b, a}}, acc) =
+  fun toSaveStringFolder ({x, ex, y, ey, data = {r, g, b, a}}, acc) =
     let
       val item = String.concat
         [ "{"
@@ -482,14 +482,14 @@ struct
       item :: acc
     end
 
-  fun toString (squares, canvasWidth, canvasHeight) =
+  fun toSaveString (squares, canvasWidth, canvasHeight) =
     let
       val size = Int.max (canvasWidth, canvasHeight)
       val qtree = buildTree (0, 0, size, squares)
       val bintree = merge (qtree, squares)
 
       val initial = ["}"]
-      val acc = BinTree.foldr (toStringFolder, bintree, initial)
+      val acc = BinTree.foldr (toSaveStringFolder, bintree, initial)
       val acc =
         String.concat
           [Int.toString canvasWidth, " ", Int.toString canvasHeight, " { "]
@@ -582,7 +582,7 @@ struct
         , "     #[\n"
         ]
 
-      val footer = String.concat ["    end\n", "end\n"]
+      val footer = String.concat ["      ]\n", "    end\n", "end\n"]
     in
       String.concat [header, coords, footer]
     end