         }
         
         
-        // paths to the Schemes file containing the miniKanren query
-        let schemeScriptPathStringSimple = pathSimple.path!
-        let schemeScriptPathStringTest1 = pathTest1.path!
-        let schemeScriptPathStringTest2 = pathTest2.path!
-        let schemeScriptPathStringTest3 = pathTest3.path!
-        let schemeScriptPathStringTest4 = pathTest4.path!
-        let schemeScriptPathStringTest5 = pathTest5.path!
-        let schemeScriptPathStringTest6 = pathTest6.path!
-        let schemeScriptPathStringAllTests = pathAllTests.path!
-        
+        // paths to the Schemes file containing the miniKanren query        
         let schemeScriptPathStringQuerySimpleForMondoScheme = pathQuerySimpleForMondoSchemeFile.path!
         
         

        
        let definitionText = (schemeDefinitionView.textStorage as NSAttributedString!).string
        
        
        let querySimple: String =
            makeQueryFileString(definitionText,
                                body: ",_",
                                expectedOut: "q",
                                interp_string: interp_string,
                                mk_vicare_path_string: mk_vicare_path_string,
                                mk_path_string: mk_path_string,
                                simple: true,
                                name: "-simple")
        
        let queryTest1: String =
            (processTest1 ?
                makeQueryFileString(definitionText,
                    body: test1InputField.stringValue,
                    expectedOut: test1ExpectedOutputField.stringValue,
                    interp_string: interp_string,
                    mk_vicare_path_string: mk_vicare_path_string,
                    mk_path_string: mk_path_string,
                    simple: false,
                    name: "-test1")
                : "")
        
        let queryTest2: String =
            (processTest2 ?
                makeQueryFileString(definitionText,
                    body: test2InputField.stringValue,
                    expectedOut: test2ExpectedOutputField.stringValue,
                    interp_string: interp_string,
                    mk_vicare_path_string: mk_vicare_path_string,
                    mk_path_string: mk_path_string,
                    simple: false,
                    name: "-test2")
                : "")

        let queryTest3: String =
            (processTest3 ?
                makeQueryFileString(definitionText,
                    body: test3InputField.stringValue,
                    expectedOut: test3ExpectedOutputField.stringValue,
                    interp_string: interp_string,
                    mk_vicare_path_string: mk_vicare_path_string,
                    mk_path_string: mk_path_string,
                    simple: false,
                    name: "-test3")
                : "")
        
        let queryTest4: String =
            (processTest4 ?
                makeQueryFileString(definitionText,
                    body: test4InputField.stringValue,
                    expectedOut: test4ExpectedOutputField.stringValue,
                    interp_string: interp_string,
                    mk_vicare_path_string: mk_vicare_path_string,
                    mk_path_string: mk_path_string,
                    simple: false,
                    name: "-test4")
                : "")

        let queryTest5: String =
            (processTest5 ?
                makeQueryFileString(definitionText,
                    body: test5InputField.stringValue,
                    expectedOut: test5ExpectedOutputField.stringValue,
                    interp_string: interp_string,
                    mk_vicare_path_string: mk_vicare_path_string,
                    mk_path_string: mk_path_string,
                    simple: false,
                    name: "-test5")
                : "")
        
        let queryTest6: String =
            (processTest6 ?
                makeQueryFileString(definitionText,
                    body: test6InputField.stringValue,
                    expectedOut: test6ExpectedOutputField.stringValue,
                    interp_string: interp_string,
                    mk_vicare_path_string: mk_vicare_path_string,
                    mk_path_string: mk_path_string,
                    simple: false,
                    name: "-test6")
                : "")
        
        let querySimpleForMondoSchemeContents: String = makeQuerySimpleForMondoSchemeFileString(interp_string,
                                                                                                mk_vicare_path_string: mk_vicare_path_string,

        
        
        // write the Scheme code containing the miniKanren query to a temp file
        let query_simple_for_mondo_scheme_file = "barliman-query-simple-for-mondo-scheme-file.scm"
        
        // files that load query code
