Update svn properties.

16 files changed, 13463 insertions, 13463 deletions

diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Atom.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Atom.cs
index 9b4ca6a..7387ef4 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Atom.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Atom.cs
@@ -1,218 +1,218 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-using System.Text;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class Atom : IUnifiable

-    {

-        private static Dictionary<string, Atom> _atomStore = new Dictionary<string, Atom>();

-        public readonly string _name;

-        public readonly Atom _module;

-

-        /// <summary>

-        /// You should not call this constructor, but use Atom.a instead.

-        /// </summary>

-        /// <param name="name"></param>

-        /// <param name="module"></param>

-        private Atom(string name, Atom module)

-        {

-            _name = name;

-            _module = module;

-        }

-

-        /// <summary>

-        /// Return the unique Atom object for name where module is null. You should use this to create

-        /// an Atom instead of calling the Atom constructor.

-        /// </summary>

-        /// <param name="name"></param>

-        /// <returns></returns>

-        public static Atom a(string name)

-        {

-            Atom atom;

-            if (!_atomStore.TryGetValue(name, out atom))

-            {

-                atom = new Atom(name, null);

-                _atomStore[name] = atom;

-            }

-            return atom;

-        }

-

-        /// <summary>

-        /// Return an Atom object with the name and module.  If module is null or Atom.NIL,

-        /// this behaves like Atom.a(name) and returns the unique object where the module is null.

-        /// If module is not null or Atom.NIL, this may or may not be the same object as another Atom

-        /// with the same name and module.

-        /// </summary>

-        /// <param name="name"></param>

-        /// <param name="module"></param>

-        /// <returns></returns>

-        public static Atom a(string name, Atom module)

-        {

-            if (module == null || module == Atom.NIL)

-                return a(name);

-            return new Atom(name, module);

-        }

-

-        /// <summary>

-        /// If Obj is an Atom unify its _module with Module.  If the Atom's _module is null, use Atom.NIL.

-        /// </summary>

-        /// <param name="Atom"></param>

-        /// <param name="Module"></param>

-        /// <returns></returns>

-        public static IEnumerable<bool> module(object Obj, object Module)

-        {

-            Obj = YP.getValue(Obj);

-            if (Obj is Atom)

-            {

-                if (((Atom)Obj)._module == null)

-                    return YP.unify(Module, Atom.NIL);

-                else

-                    return YP.unify(Module, ((Atom)Obj)._module);

-            }

-            return YP.fail();

-        }

-

-        public static readonly Atom NIL = Atom.a("[]");

-        public static readonly Atom DOT = Atom.a(".");

-        public static readonly Atom F = Atom.a("f");

-        public static readonly Atom SLASH = Atom.a("/");

-        public static readonly Atom HAT = Atom.a("^");

-        public static readonly Atom RULE = Atom.a(":-");

-

-        public IEnumerable<bool> unify(object arg)

-        {

-            arg = YP.getValue(arg);

-            if (arg is Atom)

-                return Equals(arg) ? YP.succeed() : YP.fail();

-            else if (arg is Variable)

-                return ((Variable)arg).unify(this);

-            else

-                return YP.fail();

-        }

-

-        public void addUniqueVariables(List<Variable> variableSet)

-        {

-            // Atom does not contain variables.

-        }

-

-        public object makeCopy(Variable.CopyStore copyStore)

-        {

-            // Atom does not contain variables that need to be copied.

-            return this;

-        }

-

-        public bool termEqual(object term)

-        {

-            return Equals(YP.getValue(term));

-        }

-

-        public bool ground()

-        {

-            // Atom is always ground.

-            return true;

-        }

-

-        public override bool Equals(object obj)

-        {

-            if (obj is Atom)

-            {

-                if (_module == null && ((Atom)obj)._module == null)

-                    // When _declaringClass is null, we always use an identical object from _atomStore.

-                    return this == obj;

-                // Otherwise, ignore _declaringClass and do a normal string compare on the _name.

-                return _name == ((Atom)obj)._name;

-            }

-            return false;

-        }

-

-        public override string ToString()

-        {

-            return _name;

-        }

-

-        public override int GetHashCode()

-        {

-            // Debug: need to check _declaringClass.

-            return _name.GetHashCode();

-        }

-

-        public string toQuotedString() 

-        {

-            if (_name.Length == 0)

-                return "''";

-            else if (this == Atom.NIL)

-                return "[]";

-

-            StringBuilder result = new StringBuilder(_name.Length);

-            bool useQuotes = false;

-            foreach (char c in _name)

-            {

-                int cInt = (int)c;

-                if (c == '\'')

-                {

-                    result.Append("''");

-                    useQuotes = true;

-                }

-                else if (c == '_' || cInt >= (int)'a' && cInt <= (int)'z' ||

-                         cInt >= (int)'A' && cInt <= (int)'Z' || cInt >= (int)'0' && cInt <= (int)'9')

-                    result.Append(c);

-                else

-                {

-                    // Debug: Need to handle non-printable chars.

-                    result.Append(c);

-                    useQuotes = true;

-                }

-            }

-

-            if (!useQuotes && (int)_name[0] >= (int)'a' && (int)_name[0] <= (int)'z')

-                return result.ToString();

-            else

-            {

-                // Surround in single quotes.

-                result.Append('\'');

-                return "'" + result;

-            }

-        }

-

-        /// <summary>

-        /// Return true if _name is lexicographically less than atom._name.

-        /// </summary>

-        /// <param name="atom"></param>

-        /// <returns></returns>

-        public bool lessThan(Atom atom)

-        {

-            return _name.CompareTo(atom._name) < 0;

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+using System.Text;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Atom : IUnifiable
+    {
+        private static Dictionary<string, Atom> _atomStore = new Dictionary<string, Atom>();
+        public readonly string _name;
+        public readonly Atom _module;
+
+        /// <summary>
+        /// You should not call this constructor, but use Atom.a instead.
+        /// </summary>
+        /// <param name="name"></param>
+        /// <param name="module"></param>
+        private Atom(string name, Atom module)
+        {
+            _name = name;
+            _module = module;
+        }
+
+        /// <summary>
+        /// Return the unique Atom object for name where module is null. You should use this to create
+        /// an Atom instead of calling the Atom constructor.
+        /// </summary>
+        /// <param name="name"></param>
+        /// <returns></returns>
+        public static Atom a(string name)
+        {
+            Atom atom;
+            if (!_atomStore.TryGetValue(name, out atom))
+            {
+                atom = new Atom(name, null);
+                _atomStore[name] = atom;
+            }
+            return atom;
+        }
+
+        /// <summary>
+        /// Return an Atom object with the name and module.  If module is null or Atom.NIL,
+        /// this behaves like Atom.a(name) and returns the unique object where the module is null.
+        /// If module is not null or Atom.NIL, this may or may not be the same object as another Atom
+        /// with the same name and module.
+        /// </summary>
+        /// <param name="name"></param>
+        /// <param name="module"></param>
+        /// <returns></returns>
+        public static Atom a(string name, Atom module)
+        {
+            if (module == null || module == Atom.NIL)
+                return a(name);
+            return new Atom(name, module);
+        }
+
+        /// <summary>
+        /// If Obj is an Atom unify its _module with Module.  If the Atom's _module is null, use Atom.NIL.
+        /// </summary>
+        /// <param name="Atom"></param>
+        /// <param name="Module"></param>
+        /// <returns></returns>
+        public static IEnumerable<bool> module(object Obj, object Module)
+        {
+            Obj = YP.getValue(Obj);
+            if (Obj is Atom)
+            {
+                if (((Atom)Obj)._module == null)
+                    return YP.unify(Module, Atom.NIL);
+                else
+                    return YP.unify(Module, ((Atom)Obj)._module);
+            }
+            return YP.fail();
+        }
+
+        public static readonly Atom NIL = Atom.a("[]");
+        public static readonly Atom DOT = Atom.a(".");
+        public static readonly Atom F = Atom.a("f");
+        public static readonly Atom SLASH = Atom.a("/");
+        public static readonly Atom HAT = Atom.a("^");
+        public static readonly Atom RULE = Atom.a(":-");
+
+        public IEnumerable<bool> unify(object arg)
+        {
+            arg = YP.getValue(arg);
+            if (arg is Atom)
+                return Equals(arg) ? YP.succeed() : YP.fail();
+            else if (arg is Variable)
+                return ((Variable)arg).unify(this);
+            else
+                return YP.fail();
+        }
+
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            // Atom does not contain variables.
+        }
+
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            // Atom does not contain variables that need to be copied.
+            return this;
+        }
+
+        public bool termEqual(object term)
+        {
+            return Equals(YP.getValue(term));
+        }
+
+        public bool ground()
+        {
+            // Atom is always ground.
+            return true;
+        }
+
+        public override bool Equals(object obj)
+        {
+            if (obj is Atom)
+            {
+                if (_module == null && ((Atom)obj)._module == null)
+                    // When _declaringClass is null, we always use an identical object from _atomStore.
+                    return this == obj;
+                // Otherwise, ignore _declaringClass and do a normal string compare on the _name.
+                return _name == ((Atom)obj)._name;
+            }
+            return false;
+        }
+
+        public override string ToString()
+        {
+            return _name;
+        }
+
+        public override int GetHashCode()
+        {
+            // Debug: need to check _declaringClass.
+            return _name.GetHashCode();
+        }
+
+        public string toQuotedString() 
+        {
+            if (_name.Length == 0)
+                return "''";
+            else if (this == Atom.NIL)
+                return "[]";
+
+            StringBuilder result = new StringBuilder(_name.Length);
+            bool useQuotes = false;
+            foreach (char c in _name)
+            {
+                int cInt = (int)c;
+                if (c == '\'')
+                {
+                    result.Append("''");
+                    useQuotes = true;
+                }
+                else if (c == '_' || cInt >= (int)'a' && cInt <= (int)'z' ||
+                         cInt >= (int)'A' && cInt <= (int)'Z' || cInt >= (int)'0' && cInt <= (int)'9')
+                    result.Append(c);
+                else
+                {
+                    // Debug: Need to handle non-printable chars.
+                    result.Append(c);
+                    useQuotes = true;
+                }
+            }
+
+            if (!useQuotes && (int)_name[0] >= (int)'a' && (int)_name[0] <= (int)'z')
+                return result.ToString();
+            else
+            {
+                // Surround in single quotes.
+                result.Append('\'');
+                return "'" + result;
+            }
+        }
+
+        /// <summary>
+        /// Return true if _name is lexicographically less than atom._name.
+        /// </summary>
+        /// <param name="atom"></param>
+        /// <returns></returns>
+        public bool lessThan(Atom atom)
+        {
+            return _name.CompareTo(atom._name) < 0;
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/BagofAnswers.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/BagofAnswers.cs
index 6aea6f7..88ffdb7 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/BagofAnswers.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/BagofAnswers.cs
@@ -1,234 +1,234 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    /// <summary>

-    /// A BagofAnswers holds answers for bagof and setof.

-    /// </summary>

-    public class BagofAnswers

-    {

-        private object _template;

-        private Variable[] _freeVariables;

-        private Dictionary<object[], List<object>> _bagForFreeVariables;

-        private List<object> _findallBagArray;

-        private static TermArrayEqualityComparer _termArrayEqualityComparer =

-            new TermArrayEqualityComparer();

-

-        /// <summary>

-        /// To get the free variables, split off any existential qualifiers from Goal such as the X in 

-        /// "X ^ f(Y)", get the set of unbound variables in Goal that are not qualifiers, then remove

-        /// the unbound variables that are qualifiers as well as the unbound variables in Template.

-        /// </summary>

-        /// <param name="Template"></param>

-        /// <param name="Goal"></param>

-        public BagofAnswers(object Template, object Goal)

-        {

-            _template = Template;

-

-            // First get the set of variables that are not free variables.

-            List<Variable> variableSet = new List<Variable>();

-            YP.addUniqueVariables(Template, variableSet);

-            object UnqualifiedGoal = YP.getValue(Goal);

-            while (UnqualifiedGoal is Functor2 && ((Functor2)UnqualifiedGoal)._name == Atom.HAT)

-            {

-                YP.addUniqueVariables(((Functor2)UnqualifiedGoal)._arg1, variableSet);

-                UnqualifiedGoal = YP.getValue(((Functor2)UnqualifiedGoal)._arg2);

-            }

-

-            // Remember how many non-free variables there are so we can find the unique free variables 

-            //   that are added.

-            int nNonFreeVariables = variableSet.Count;

-            YP.addUniqueVariables(UnqualifiedGoal, variableSet);

-            int nFreeVariables = variableSet.Count - nNonFreeVariables;

-            if (nFreeVariables == 0)

-            {

-                // There were no free variables added, so we won't waste time with _bagForFreeVariables.

-                _freeVariables = null;

-                _findallBagArray = new List<object>();

-            }

-            else

-            {

-                // Copy the free variables.

-                _freeVariables = new Variable[nFreeVariables];

-                for (int i = 0; i < nFreeVariables; ++i)

-                    _freeVariables[i] = variableSet[i + nNonFreeVariables];

-

-                _bagForFreeVariables = new Dictionary<object[], List<object>>(_termArrayEqualityComparer);

-            }

-        }

-

-        public void add()

-        {

-            if (_freeVariables == null)

-                // The goal has bound the values in _template but we don't bother with _freeVariables.

-                _findallBagArray.Add(YP.makeCopy(_template, new Variable.CopyStore()));

-            else

-            {

-                // The goal has bound the values in _template and _freeVariables.

-                // Find the entry for this set of _freeVariables values.

-                object[] freeVariableValues = new object[_freeVariables.Length];

-                for (int i = 0; i < _freeVariables.Length; ++i)

-                    freeVariableValues[i] = YP.getValue(_freeVariables[i]);

-                List<object> bagArray;

-                if (!_bagForFreeVariables.TryGetValue(freeVariableValues, out bagArray))

-                {

-                    bagArray = new List<object>();

-                    _bagForFreeVariables[freeVariableValues] = bagArray;

-                }

-

-                // Now copy the template and add to the bag for the freeVariables values.

-                bagArray.Add(YP.makeCopy(_template, new Variable.CopyStore()));

-            }

-        }

-

-        /// <summary>

-        /// For each result, unify the _freeVariables and unify bagArrayVariable with the associated bag.

-        /// </summary>

-        /// <param name="bagArrayVariable">this is unified with the List<object> of matches for template that 

-        /// corresponds to the bindings for freeVariables.  Be very careful: this does not unify with a Prolog 

-        /// list.</param>

-        /// <returns></returns>

-        public IEnumerable<bool> resultArray(Variable bagArrayVariable)

-        {

-            if (_freeVariables == null)

-            {

-                // No unbound free variables, so we only filled one bag.  If empty, bagof fails.

-                if (_findallBagArray.Count > 0)

-                {

-                    foreach (bool l1 in bagArrayVariable.unify(_findallBagArray))

-                        yield return false;

-                }

-            }

-            else

-            {

-                foreach (KeyValuePair<object[], List<object>> valuesAndBag in _bagForFreeVariables)

-                {

-                    foreach (bool l1 in YP.unifyArrays(_freeVariables, valuesAndBag.Key))

-                    {

-                        foreach (bool l2 in bagArrayVariable.unify(valuesAndBag.Value))

-                            yield return false;

-                    }

-                    // Debug: Should we free memory of the answers already returned?

-                }

-            }

-        }

-

-        /// <summary>

-        /// For each result, unify the _freeVariables and unify Bag with the associated bag.

-        /// </summary>

-        /// <param name="Bag"></param>

-        /// <returns></returns>

-        public IEnumerable<bool> result(object Bag)

-        {

-            Variable bagArrayVariable = new Variable();

-            foreach (bool l1 in resultArray(bagArrayVariable))

-            {

-                foreach (bool l2 in YP.unify(Bag, ListPair.make((List<object>)bagArrayVariable.getValue())))

-                    yield return false;

-            }

-        }

-

-        /// <summary>

-        /// For each result, unify the _freeVariables and unify Bag with the associated bag which is sorted

-        /// with duplicates removed, as in setof.

-        /// </summary>

-        /// <param name="Bag"></param>

-        /// <returns></returns>

-        public IEnumerable<bool> resultSet(object Bag)

-        {

-            Variable bagArrayVariable = new Variable();

-            foreach (bool l1 in resultArray(bagArrayVariable))

-            {

-                List<object> bagArray = (List<object>)bagArrayVariable.getValue();

-                YP.sortArray(bagArray);

-                foreach (bool l2 in YP.unify(Bag, ListPair.makeWithoutRepeatedTerms(bagArray)))

-                    yield return false;

-            }

-        }

-

-        public static IEnumerable<bool> bagofArray

-            (object Template, object Goal, IEnumerable<bool> goalIterator, Variable bagArrayVariable)

-        {

-            BagofAnswers bagOfAnswers = new BagofAnswers(Template, Goal);

-            foreach (bool l1 in goalIterator)

-                bagOfAnswers.add();

-            return bagOfAnswers.resultArray(bagArrayVariable);

-        }

-

-        public static IEnumerable<bool> bagof

-            (object Template, object Goal, IEnumerable<bool> goalIterator, object Bag)

-        {

-            BagofAnswers bagOfAnswers = new BagofAnswers(Template, Goal);

-            foreach (bool l1 in goalIterator)

-                bagOfAnswers.add();

-            return bagOfAnswers.result(Bag);

-        }

-

-        public static IEnumerable<bool> setof

-            (object Template, object Goal, IEnumerable<bool> goalIterator, object Bag)

-        {

-            BagofAnswers bagOfAnswers = new BagofAnswers(Template, Goal);

-            foreach (bool l1 in goalIterator)

-                bagOfAnswers.add();

-            return bagOfAnswers.resultSet(Bag);

-        }

-

-        /// <summary>

-        /// A TermArrayEqualityComparer implements IEqualityComparer to compare two object arrays using YP.termEqual.

-        /// </summary>

-        private class TermArrayEqualityComparer : IEqualityComparer<object[]>

-        {

-            public bool Equals(object[] array1, object[] array2)

-            {

-                if (array1.Length != array2.Length)

-                    return false;

-                for (int i = 0; i < array1.Length; ++i)

-                {

-                    if (!YP.termEqual(array1[i], array2[i]))

-                        return false;

-                }

-                return true;

-            }

-

-            public int GetHashCode(object[] array)

-            {

-                int hashCode = 0;

-                for (int i = 0; i < array.Length; ++i)

-                    hashCode ^= array[i].GetHashCode();

-                return hashCode;

-            }

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    /// <summary>
+    /// A BagofAnswers holds answers for bagof and setof.
+    /// </summary>
+    public class BagofAnswers
+    {
+        private object _template;
+        private Variable[] _freeVariables;
+        private Dictionary<object[], List<object>> _bagForFreeVariables;
+        private List<object> _findallBagArray;
+        private static TermArrayEqualityComparer _termArrayEqualityComparer =
+            new TermArrayEqualityComparer();
+
+        /// <summary>
+        /// To get the free variables, split off any existential qualifiers from Goal such as the X in 
+        /// "X ^ f(Y)", get the set of unbound variables in Goal that are not qualifiers, then remove
+        /// the unbound variables that are qualifiers as well as the unbound variables in Template.
+        /// </summary>
+        /// <param name="Template"></param>
+        /// <param name="Goal"></param>
+        public BagofAnswers(object Template, object Goal)
+        {
+            _template = Template;
+
+            // First get the set of variables that are not free variables.
+            List<Variable> variableSet = new List<Variable>();
+            YP.addUniqueVariables(Template, variableSet);
+            object UnqualifiedGoal = YP.getValue(Goal);
+            while (UnqualifiedGoal is Functor2 && ((Functor2)UnqualifiedGoal)._name == Atom.HAT)
+            {
+                YP.addUniqueVariables(((Functor2)UnqualifiedGoal)._arg1, variableSet);
+                UnqualifiedGoal = YP.getValue(((Functor2)UnqualifiedGoal)._arg2);
+            }
+
+            // Remember how many non-free variables there are so we can find the unique free variables 
+            //   that are added.
+            int nNonFreeVariables = variableSet.Count;
+            YP.addUniqueVariables(UnqualifiedGoal, variableSet);
+            int nFreeVariables = variableSet.Count - nNonFreeVariables;
+            if (nFreeVariables == 0)
+            {
+                // There were no free variables added, so we won't waste time with _bagForFreeVariables.
+                _freeVariables = null;
+                _findallBagArray = new List<object>();
+            }
+            else
+            {
+                // Copy the free variables.
+                _freeVariables = new Variable[nFreeVariables];
+                for (int i = 0; i < nFreeVariables; ++i)
+                    _freeVariables[i] = variableSet[i + nNonFreeVariables];
+
+                _bagForFreeVariables = new Dictionary<object[], List<object>>(_termArrayEqualityComparer);
+            }
+        }
+
+        public void add()
+        {
+            if (_freeVariables == null)
+                // The goal has bound the values in _template but we don't bother with _freeVariables.
+                _findallBagArray.Add(YP.makeCopy(_template, new Variable.CopyStore()));
+            else
+            {
+                // The goal has bound the values in _template and _freeVariables.
+                // Find the entry for this set of _freeVariables values.
+                object[] freeVariableValues = new object[_freeVariables.Length];
+                for (int i = 0; i < _freeVariables.Length; ++i)
+                    freeVariableValues[i] = YP.getValue(_freeVariables[i]);
+                List<object> bagArray;
+                if (!_bagForFreeVariables.TryGetValue(freeVariableValues, out bagArray))
+                {
+                    bagArray = new List<object>();
+                    _bagForFreeVariables[freeVariableValues] = bagArray;
+                }
+
+                // Now copy the template and add to the bag for the freeVariables values.
+                bagArray.Add(YP.makeCopy(_template, new Variable.CopyStore()));
+            }
+        }
+
+        /// <summary>
+        /// For each result, unify the _freeVariables and unify bagArrayVariable with the associated bag.
+        /// </summary>
+        /// <param name="bagArrayVariable">this is unified with the List<object> of matches for template that 
+        /// corresponds to the bindings for freeVariables.  Be very careful: this does not unify with a Prolog 
+        /// list.</param>
+        /// <returns></returns>
+        public IEnumerable<bool> resultArray(Variable bagArrayVariable)
+        {
+            if (_freeVariables == null)
+            {
+                // No unbound free variables, so we only filled one bag.  If empty, bagof fails.
+                if (_findallBagArray.Count > 0)
+                {
+                    foreach (bool l1 in bagArrayVariable.unify(_findallBagArray))
+                        yield return false;
+                }
+            }
+            else
+            {
+                foreach (KeyValuePair<object[], List<object>> valuesAndBag in _bagForFreeVariables)
+                {
+                    foreach (bool l1 in YP.unifyArrays(_freeVariables, valuesAndBag.Key))
+                    {
+                        foreach (bool l2 in bagArrayVariable.unify(valuesAndBag.Value))
+                            yield return false;
+                    }
+                    // Debug: Should we free memory of the answers already returned?
+                }
+            }
+        }
+
+        /// <summary>
+        /// For each result, unify the _freeVariables and unify Bag with the associated bag.
+        /// </summary>
+        /// <param name="Bag"></param>
+        /// <returns></returns>
+        public IEnumerable<bool> result(object Bag)
+        {
+            Variable bagArrayVariable = new Variable();
+            foreach (bool l1 in resultArray(bagArrayVariable))
+            {
+                foreach (bool l2 in YP.unify(Bag, ListPair.make((List<object>)bagArrayVariable.getValue())))
+                    yield return false;
+            }
+        }
+
+        /// <summary>
+        /// For each result, unify the _freeVariables and unify Bag with the associated bag which is sorted
+        /// with duplicates removed, as in setof.
+        /// </summary>
+        /// <param name="Bag"></param>
+        /// <returns></returns>
+        public IEnumerable<bool> resultSet(object Bag)
+        {
+            Variable bagArrayVariable = new Variable();
+            foreach (bool l1 in resultArray(bagArrayVariable))
+            {
+                List<object> bagArray = (List<object>)bagArrayVariable.getValue();
+                YP.sortArray(bagArray);
+                foreach (bool l2 in YP.unify(Bag, ListPair.makeWithoutRepeatedTerms(bagArray)))
+                    yield return false;
+            }
+        }
+
+        public static IEnumerable<bool> bagofArray
+            (object Template, object Goal, IEnumerable<bool> goalIterator, Variable bagArrayVariable)
+        {
+            BagofAnswers bagOfAnswers = new BagofAnswers(Template, Goal);
+            foreach (bool l1 in goalIterator)
+                bagOfAnswers.add();
+            return bagOfAnswers.resultArray(bagArrayVariable);
+        }
+
+        public static IEnumerable<bool> bagof
+            (object Template, object Goal, IEnumerable<bool> goalIterator, object Bag)
+        {
+            BagofAnswers bagOfAnswers = new BagofAnswers(Template, Goal);
+            foreach (bool l1 in goalIterator)
+                bagOfAnswers.add();
+            return bagOfAnswers.result(Bag);
+        }
+
+        public static IEnumerable<bool> setof
+            (object Template, object Goal, IEnumerable<bool> goalIterator, object Bag)
+        {
+            BagofAnswers bagOfAnswers = new BagofAnswers(Template, Goal);
+            foreach (bool l1 in goalIterator)
+                bagOfAnswers.add();
+            return bagOfAnswers.resultSet(Bag);
+        }
+
+        /// <summary>
+        /// A TermArrayEqualityComparer implements IEqualityComparer to compare two object arrays using YP.termEqual.
+        /// </summary>
+        private class TermArrayEqualityComparer : IEqualityComparer<object[]>
+        {
+            public bool Equals(object[] array1, object[] array2)
+            {
+                if (array1.Length != array2.Length)
+                    return false;
+                for (int i = 0; i < array1.Length; ++i)
+                {
+                    if (!YP.termEqual(array1[i], array2[i]))
+                        return false;
+                }
+                return true;
+            }
+
+            public int GetHashCode(object[] array)
+            {
+                int hashCode = 0;
+                for (int i = 0; i < array.Length; ++i)
+                    hashCode ^= array[i].GetHashCode();
+                return hashCode;
+            }
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/FindallAnswers.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/FindallAnswers.cs
index 2978cee..dcd4250 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/FindallAnswers.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/FindallAnswers.cs
@@ -1,103 +1,103 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    /// <summary>

-    /// A FindallAnswers holds answers for findall.

-    /// </summary>

-    public class FindallAnswers

-    {

-        private object _template;

-        private List<object> _bagArray;

-

-        public FindallAnswers(object Template)

-        {

-            _template = Template;

-            _bagArray = new List<object>();

-        }

-

-        public void add()

-        {

-            _bagArray.Add(YP.makeCopy(_template, new Variable.CopyStore()));

-        }

-

-        public List<object> resultArray()

-        {

-            return _bagArray;

-        }

-

-        /// <summary>

-        /// Unify Bag with the result. This frees the internal answers, so you can only call this once.

-        /// </summary>

-        /// <param name="Bag"></param>

-        /// <returns></returns>

-        public IEnumerable<bool> result(object Bag)

-        {

-            object result = ListPair.make(_bagArray);

-            // Try to free the memory.

-            _bagArray = null;

-            return YP.unify(Bag, result);

-        }

-

-        /// <summary>

-        /// This is a simplified findall when the goal is a single call.

-        /// </summary>

-        /// <param name="Template"></param>

-        /// <param name="goal"></param>

-        /// <param name="Bag"></param>

-        /// <returns></returns>

-        public static IEnumerable<bool> findall(object Template, IEnumerable<bool> goal, object Bag)

-        {

-            FindallAnswers findallAnswers = new FindallAnswers(Template);

-            foreach (bool l1 in goal)

-                findallAnswers.add();

-            return findallAnswers.result(Bag);

-        }

-

-        /// <summary>

-        /// Like findall, except return an array of the results.

-        /// </summary>

-        /// <param name="template"></param>

-        /// <param name="goal"></param>

-        /// <returns></returns>

-        public static List<object> findallArray(object Template, IEnumerable<bool> goal)

-        {

-            FindallAnswers findallAnswers = new FindallAnswers(Template);

-            foreach (bool l1 in goal)

-                findallAnswers.add();

-            return findallAnswers.resultArray();

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    /// <summary>
+    /// A FindallAnswers holds answers for findall.
+    /// </summary>
+    public class FindallAnswers
+    {
+        private object _template;
+        private List<object> _bagArray;
+
+        public FindallAnswers(object Template)
+        {
+            _template = Template;
+            _bagArray = new List<object>();
+        }
+
+        public void add()
+        {
+            _bagArray.Add(YP.makeCopy(_template, new Variable.CopyStore()));
+        }
+
+        public List<object> resultArray()
+        {
+            return _bagArray;
+        }
+
+        /// <summary>
+        /// Unify Bag with the result. This frees the internal answers, so you can only call this once.
+        /// </summary>
+        /// <param name="Bag"></param>
+        /// <returns></returns>
+        public IEnumerable<bool> result(object Bag)
+        {
+            object result = ListPair.make(_bagArray);
+            // Try to free the memory.
+            _bagArray = null;
+            return YP.unify(Bag, result);
+        }
+
+        /// <summary>
+        /// This is a simplified findall when the goal is a single call.
+        /// </summary>
+        /// <param name="Template"></param>
+        /// <param name="goal"></param>
+        /// <param name="Bag"></param>
+        /// <returns></returns>
+        public static IEnumerable<bool> findall(object Template, IEnumerable<bool> goal, object Bag)
+        {
+            FindallAnswers findallAnswers = new FindallAnswers(Template);
+            foreach (bool l1 in goal)
+                findallAnswers.add();
+            return findallAnswers.result(Bag);
+        }
+
+        /// <summary>
+        /// Like findall, except return an array of the results.
+        /// </summary>
+        /// <param name="template"></param>
+        /// <param name="goal"></param>
+        /// <returns></returns>
+        public static List<object> findallArray(object Template, IEnumerable<bool> goal)
+        {
+            FindallAnswers findallAnswers = new FindallAnswers(Template);
+            foreach (bool l1 in goal)
+                findallAnswers.add();
+            return findallAnswers.resultArray();
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor.cs
index 3ba1021..58c0e4b 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor.cs
@@ -1,188 +1,188 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class Functor : IUnifiable

-    {

-        public readonly Atom _name;

-        public readonly object[] _args;

-

-        public Functor(Atom name, object[] args)

-        {

-            if (args.Length <= 3)

-            {

-                if (args.Length == 0)

-                    throw new Exception("For arity 0 functor, just use name as an Atom");

-                else if (args.Length == 1)

-                    throw new Exception("For arity 1 functor, use Functor1");

-                else if (args.Length == 2)

-                    throw new Exception("For arity 2 functor, use Functor2");

-                else if (args.Length == 3)

-                    throw new Exception("For arity 3 functor, use Functor3");

-                else

-                    // (This shouldn't happen, but include it for completeness.

-                    throw new Exception("Cannot create a Functor of arity " + args.Length);

-            }

-

-            _name = name;

-            _args = args;

-        }

-

-        public Functor(string name, object[] args)

-            : this(Atom.a(name), args)

-        {

-        }

-

-        /// <summary>

-        /// Return an Atom, Functor1, Functor2, Functor3 or Functor depending on the

-        /// length of args.  

-        /// Note that this is different than the Functor constructor which requires

-        /// the length of args to be greater than 3.

-        /// </summary>

-        /// <param name="name"></param>

-        /// <param name="args"></param>

-        /// <returns></returns>

-        public static object make(Atom name, object[] args) 

-        {

-            if (args.Length <= 0)

-                return name;

-            else if (args.Length == 1)

-                return new Functor1(name, args[0]);

-            else if (args.Length == 2)

-                return new Functor2(name, args[0], args[1]);

-            else if (args.Length == 3)

-                return new Functor3(name, args[0], args[1], args[2]);

-            else

-                return new Functor(name, args);

-        }

-

-        /// <summary>

-        /// Call the main make, first converting name to an Atom.

-        /// </summary>

-        /// <param name="name"></param>

-        /// <param name="args"></param>

-        /// <returns></returns>

-        public static object make(string name, object[] args)

-        {

-            return make(Atom.a(name), args);

-        }

-

-        public IEnumerable<bool> unify(object arg)

-        {

-            arg = YP.getValue(arg);

-            if (arg is Functor)

-            {

-                Functor argFunctor = (Functor)arg;

-                if (_name.Equals(argFunctor._name))

-                    return YP.unifyArrays(_args, argFunctor._args);

-                else

-                    return YP.fail();

-            }

-            else if (arg is Variable)

-                return ((Variable)arg).unify(this);

-            else

-                return YP.fail();

-        }

-

-        public override string ToString()

-        {

-            string result = _name + "(" + YP.getValue(_args[0]);

-            for (int i = 1; i < _args.Length; ++i)

-                result += ", " + YP.getValue(_args[i]);

-            result += ")";

-            return result;

-        }

-

-        public bool termEqual(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor)

-            {

-                Functor termFunctor = (Functor)term;

-                if (_name.Equals(termFunctor._name) && _args.Length == termFunctor._args.Length)

-                {

-                    for (int i = 0; i < _args.Length; ++i)

-                    {

-                        if (!YP.termEqual(_args[i], termFunctor._args[i]))

-                            return false;

-                    }

-                    return true;

-                }

-            }

-            return false;

-        }

-

-        public bool lessThan(Functor functor)

-        {

-            // Do the equal check first since it is faster.

-            if (!_name.Equals(functor._name))

-                return _name.lessThan(functor._name);

-

-            if (_args.Length != functor._args.Length)

-                return _args.Length < functor._args.Length;

-

-            for (int i = 0; i < _args.Length; ++i)

-            {

-                if (!YP.termEqual(_args[i], functor._args[i]))

-                    return YP.termLessThan(_args[i], functor._args[i]);

-            }

-

-            return false;

-        }

-

-        public bool ground()

-        {

-            for (int i = 0; i < _args.Length; ++i)

-            {

-                if (!YP.ground(_args[i]))

-                    return false;

-            }

-            return true;

-        }

-

-        public void addUniqueVariables(List<Variable> variableSet)

-        {

-            for (int i = 0; i < _args.Length; ++i)

-                YP.addUniqueVariables(_args[i], variableSet);

-        }

-

-        public object makeCopy(Variable.CopyStore copyStore)

-        {

-            object[] argsCopy = new object[_args.Length];

-            for (int i = 0; i < _args.Length; ++i)

-                argsCopy[i] = YP.makeCopy(_args[i], copyStore);

-            return new Functor(_name, argsCopy);

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Functor : IUnifiable
+    {
+        public readonly Atom _name;
+        public readonly object[] _args;
+
+        public Functor(Atom name, object[] args)
+        {
+            if (args.Length <= 3)
+            {
+                if (args.Length == 0)
+                    throw new Exception("For arity 0 functor, just use name as an Atom");
+                else if (args.Length == 1)
+                    throw new Exception("For arity 1 functor, use Functor1");
+                else if (args.Length == 2)
+                    throw new Exception("For arity 2 functor, use Functor2");
+                else if (args.Length == 3)
+                    throw new Exception("For arity 3 functor, use Functor3");
+                else
+                    // (This shouldn't happen, but include it for completeness.
+                    throw new Exception("Cannot create a Functor of arity " + args.Length);
+            }
+
+            _name = name;
+            _args = args;
+        }
+
+        public Functor(string name, object[] args)
+            : this(Atom.a(name), args)
+        {
+        }
+
+        /// <summary>
+        /// Return an Atom, Functor1, Functor2, Functor3 or Functor depending on the
+        /// length of args.  
+        /// Note that this is different than the Functor constructor which requires
+        /// the length of args to be greater than 3.
+        /// </summary>
+        /// <param name="name"></param>
+        /// <param name="args"></param>
+        /// <returns></returns>
+        public static object make(Atom name, object[] args) 
+        {
+            if (args.Length <= 0)
+                return name;
+            else if (args.Length == 1)
+                return new Functor1(name, args[0]);
+            else if (args.Length == 2)
+                return new Functor2(name, args[0], args[1]);
+            else if (args.Length == 3)
+                return new Functor3(name, args[0], args[1], args[2]);
+            else
+                return new Functor(name, args);
+        }
+
+        /// <summary>
+        /// Call the main make, first converting name to an Atom.
+        /// </summary>
+        /// <param name="name"></param>
+        /// <param name="args"></param>
+        /// <returns></returns>
+        public static object make(string name, object[] args)
+        {
+            return make(Atom.a(name), args);
+        }
+
+        public IEnumerable<bool> unify(object arg)
+        {
+            arg = YP.getValue(arg);
+            if (arg is Functor)
+            {
+                Functor argFunctor = (Functor)arg;
+                if (_name.Equals(argFunctor._name))
+                    return YP.unifyArrays(_args, argFunctor._args);
+                else
+                    return YP.fail();
+            }
+            else if (arg is Variable)
+                return ((Variable)arg).unify(this);
+            else
+                return YP.fail();
+        }
+
+        public override string ToString()
+        {
+            string result = _name + "(" + YP.getValue(_args[0]);
+            for (int i = 1; i < _args.Length; ++i)
+                result += ", " + YP.getValue(_args[i]);
+            result += ")";
+            return result;
+        }
+
+        public bool termEqual(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor)
+            {
+                Functor termFunctor = (Functor)term;
+                if (_name.Equals(termFunctor._name) && _args.Length == termFunctor._args.Length)
+                {
+                    for (int i = 0; i < _args.Length; ++i)
+                    {
+                        if (!YP.termEqual(_args[i], termFunctor._args[i]))
+                            return false;
+                    }
+                    return true;
+                }
+            }
+            return false;
+        }
+
+        public bool lessThan(Functor functor)
+        {
+            // Do the equal check first since it is faster.
+            if (!_name.Equals(functor._name))
+                return _name.lessThan(functor._name);
+
+            if (_args.Length != functor._args.Length)
+                return _args.Length < functor._args.Length;
+
+            for (int i = 0; i < _args.Length; ++i)
+            {
+                if (!YP.termEqual(_args[i], functor._args[i]))
+                    return YP.termLessThan(_args[i], functor._args[i]);
+            }
+
+            return false;
+        }
+
+        public bool ground()
+        {
+            for (int i = 0; i < _args.Length; ++i)
+            {
+                if (!YP.ground(_args[i]))
+                    return false;
+            }
+            return true;
+        }
+
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            for (int i = 0; i < _args.Length; ++i)
+                YP.addUniqueVariables(_args[i], variableSet);
+        }
+
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            object[] argsCopy = new object[_args.Length];
+            for (int i = 0; i < _args.Length; ++i)
+                argsCopy[i] = YP.makeCopy(_args[i], copyStore);
+            return new Functor(_name, argsCopy);
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor1.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor1.cs
index 33e2a32..582cd20 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor1.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor1.cs
@@ -1,111 +1,111 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class Functor1 : IUnifiable

-    {

-        public readonly Atom _name;

-        public readonly object _arg1;

-

-        public Functor1(Atom name, object arg1)

-        {

-            _name = name;

-            _arg1 = arg1;

-        }

-

-        public Functor1(string name, object arg1)

-            : this(Atom.a(name), arg1)

-        {

-        }

-

-        public IEnumerable<bool> unify(object arg)

-        {

-            arg = YP.getValue(arg);

-            if (arg is Functor1)

-            {

-                Functor1 argFunctor = (Functor1)arg;

-                if (_name.Equals(argFunctor._name))

-                {

-                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))

-                        yield return false;

-                }

-            }

-            else if (arg is Variable)

-            {

-                foreach (bool l1 in ((Variable)arg).unify(this))

-                    yield return false;

-            }

-        }

-

-        public override string ToString()

-        {

-            return _name + "(" + YP.getValue(_arg1) + ")";

-        }

-

-        public bool termEqual(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor1)

-            {

-                Functor1 termFunctor = (Functor1)term;

-                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1);

-            }

-            return false;

-        }

-

-        public bool lessThan(Functor1 functor)

-        {

-            // Do the equal check first since it is faster.

-            if (!_name.Equals(functor._name))

-                return _name.lessThan(functor._name);

-

-            return YP.termLessThan(_arg1, functor._arg1);

-        }

-

-        public bool ground()

-        {

-            return YP.ground(_arg1);

-        }

-

-        public void addUniqueVariables(List<Variable> variableSet)

-        {

-            YP.addUniqueVariables(_arg1, variableSet);

-        }

-

-        public object makeCopy(Variable.CopyStore copyStore)

-        {

-            return new Functor1(_name, YP.makeCopy(_arg1, copyStore));

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Functor1 : IUnifiable
+    {
+        public readonly Atom _name;
+        public readonly object _arg1;
+
+        public Functor1(Atom name, object arg1)
+        {
+            _name = name;
+            _arg1 = arg1;
+        }
+
+        public Functor1(string name, object arg1)
+            : this(Atom.a(name), arg1)
+        {
+        }
+
+        public IEnumerable<bool> unify(object arg)
+        {
+            arg = YP.getValue(arg);
+            if (arg is Functor1)
+            {
+                Functor1 argFunctor = (Functor1)arg;
+                if (_name.Equals(argFunctor._name))
+                {
+                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))
+                        yield return false;
+                }
+            }
+            else if (arg is Variable)
+            {
+                foreach (bool l1 in ((Variable)arg).unify(this))
+                    yield return false;
+            }
+        }
+
+        public override string ToString()
+        {
+            return _name + "(" + YP.getValue(_arg1) + ")";
+        }
+
+        public bool termEqual(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor1)
+            {
+                Functor1 termFunctor = (Functor1)term;
+                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1);
+            }
+            return false;
+        }
+
+        public bool lessThan(Functor1 functor)
+        {
+            // Do the equal check first since it is faster.
+            if (!_name.Equals(functor._name))
+                return _name.lessThan(functor._name);
+
+            return YP.termLessThan(_arg1, functor._arg1);
+        }
+
+        public bool ground()
+        {
+            return YP.ground(_arg1);
+        }
+
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            YP.addUniqueVariables(_arg1, variableSet);
+        }
+
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            return new Functor1(_name, YP.makeCopy(_arg1, copyStore));
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs
index 87c5f1b..138a44c 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs
@@ -1,154 +1,154 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class Functor2 : IUnifiable

-    {

-        public readonly Atom _name;

-        public readonly object _arg1;

-        public readonly object _arg2;

-

-        public Functor2(Atom name, object arg1, object arg2)

-        {

-            _name = name;

-            _arg1 = arg1;

-            _arg2 = arg2;

-        }

-

-        public Functor2(string name, object arg1, object arg2)

-            : this(Atom.a(name), arg1, arg2)

-        {

-        }

-

-        public IEnumerable<bool> unify(object arg)

-        {

-            arg = YP.getValue(arg);

-            if (arg is Functor2)

-            {

-                Functor2 argFunctor = (Functor2)arg;

-                if (_name.Equals(argFunctor._name))

-                {

-                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))

-                    {

-                        foreach (bool l2 in YP.unify(_arg2, argFunctor._arg2))

-                            yield return false;

-                    }

-                }

-            }

-            else if (arg is Variable)

-            {

-                foreach (bool l1 in ((Variable)arg).unify(this))

-                    yield return false;

-            }

-        }

-

-        public override string ToString()

-        {

-            if (_name == Atom.DOT)

-                return listPairToString(this);

-            else

-                return _name + "(" + YP.getValue(_arg1) + ", " +  YP.getValue(_arg2) + ")";

-        }

-

-        public bool termEqual(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor2)

-            {

-                Functor2 termFunctor = (Functor2)term;

-                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1)

-                     && YP.termEqual(_arg2, termFunctor._arg2);

-            }

-            return false;

-        }

-

-        public bool lessThan(Functor2 functor)

-        {

-            // Do the equal check first since it is faster.

-            if (!_name.Equals(functor._name))

-                return _name.lessThan(functor._name);

-

-            if (!YP.termEqual(_arg1, functor._arg1))

-                return YP.termLessThan(_arg1, functor._arg1);

-

-            return YP.termLessThan(_arg2, functor._arg2);

-        }

-

-        public bool ground()

-        {

-            return YP.ground(_arg1) && YP.ground(_arg2);

-        }

-

-        public void addUniqueVariables(List<Variable> variableSet)

-        {

-            YP.addUniqueVariables(_arg1, variableSet);

-            YP.addUniqueVariables(_arg2, variableSet);

-        }

-

-        public object makeCopy(Variable.CopyStore copyStore)

-        {

-            return new Functor2(_name, YP.makeCopy(_arg1, copyStore), 

-                YP.makeCopy(_arg2, copyStore));

-        }

-

-        private static string listPairToString(Functor2 listPair)

-        {

-            string result = "[";

-            while (true)

-            {

-                object head = YP.getValue(listPair._arg1);

-                object tail = YP.getValue(listPair._arg2);

-                if (tail == (object)Atom.NIL)

-                {

-                    result += head;

-                    break;

-                }

-                else if (tail is Functor2 && ((Functor2)tail)._name == Atom.DOT)

-                {

-                    result += head + ", ";

-                    listPair = (Functor2)tail;

-                    // Loop again.

-                }

-                else

-                {

-                    // The list is not terminated with NIL.

-                    result += head + "|" + tail;

-                    break;

-                }

-            }

-            result += "]";

-            return result;

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Functor2 : IUnifiable
+    {
+        public readonly Atom _name;
+        public readonly object _arg1;
+        public readonly object _arg2;
+
+        public Functor2(Atom name, object arg1, object arg2)
+        {
+            _name = name;
+            _arg1 = arg1;
+            _arg2 = arg2;
+        }
+
+        public Functor2(string name, object arg1, object arg2)
+            : this(Atom.a(name), arg1, arg2)
+        {
+        }
+
+        public IEnumerable<bool> unify(object arg)
+        {
+            arg = YP.getValue(arg);
+            if (arg is Functor2)
+            {
+                Functor2 argFunctor = (Functor2)arg;
+                if (_name.Equals(argFunctor._name))
+                {
+                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))
+                    {
+                        foreach (bool l2 in YP.unify(_arg2, argFunctor._arg2))
+                            yield return false;
+                    }
+                }
+            }
+            else if (arg is Variable)
+            {
+                foreach (bool l1 in ((Variable)arg).unify(this))
+                    yield return false;
+            }
+        }
+
+        public override string ToString()
+        {
+            if (_name == Atom.DOT)
+                return listPairToString(this);
+            else
+                return _name + "(" + YP.getValue(_arg1) + ", " +  YP.getValue(_arg2) + ")";
+        }
+
+        public bool termEqual(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor2)
+            {
+                Functor2 termFunctor = (Functor2)term;
+                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1)
+                     && YP.termEqual(_arg2, termFunctor._arg2);
+            }
+            return false;
+        }
+
+        public bool lessThan(Functor2 functor)
+        {
+            // Do the equal check first since it is faster.
+            if (!_name.Equals(functor._name))
+                return _name.lessThan(functor._name);
+
+            if (!YP.termEqual(_arg1, functor._arg1))
+                return YP.termLessThan(_arg1, functor._arg1);
+
+            return YP.termLessThan(_arg2, functor._arg2);
+        }
+
+        public bool ground()
+        {
+            return YP.ground(_arg1) && YP.ground(_arg2);
+        }
+
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            YP.addUniqueVariables(_arg1, variableSet);
+            YP.addUniqueVariables(_arg2, variableSet);
+        }
+
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            return new Functor2(_name, YP.makeCopy(_arg1, copyStore), 
+                YP.makeCopy(_arg2, copyStore));
+        }
+
+        private static string listPairToString(Functor2 listPair)
+        {
+            string result = "[";
+            while (true)
+            {
+                object head = YP.getValue(listPair._arg1);
+                object tail = YP.getValue(listPair._arg2);
+                if (tail == (object)Atom.NIL)
+                {
+                    result += head;
+                    break;
+                }
+                else if (tail is Functor2 && ((Functor2)tail)._name == Atom.DOT)
+                {
+                    result += head + ", ";
+                    listPair = (Functor2)tail;
+                    // Loop again.
+                }
+                else
+                {
+                    // The list is not terminated with NIL.
+                    result += head + "|" + tail;
+                    break;
+                }
+            }
+            result += "]";
+            return result;
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor3.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor3.cs
index 74418c4..b52fdf3 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor3.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor3.cs
@@ -1,133 +1,133 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class Functor3 : IUnifiable

-    {

-        public readonly Atom _name;

-        public readonly object _arg1;

-        public readonly object _arg2;

-        public readonly object _arg3;

-

-        public Functor3(Atom name, object arg1, object arg2, object arg3)

-        {

-            _name = name;

-            _arg1 = arg1;

-            _arg2 = arg2;

-            _arg3 = arg3;

-        }

-        

-        public Functor3(string name, object arg1, object arg2, object arg3)

-            : this(Atom.a(name), arg1, arg2, arg3)

-        {

-        }

-

-        public IEnumerable<bool> unify(object arg)

-        {

-            arg = YP.getValue(arg);

-            if (arg is Functor3)

-            {

-                Functor3 argFunctor = (Functor3)arg;

-                if (_name.Equals(argFunctor._name))

-                {

-                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))

-                    {

-                        foreach (bool l2 in YP.unify(_arg2, argFunctor._arg2))

-                        {

-                            foreach (bool l3 in YP.unify(_arg3, argFunctor._arg3))

-                                yield return false;

-                        }

-                    }

-                }

-            }

-            else if (arg is Variable)

-            {

-                foreach (bool l1 in ((Variable)arg).unify(this))

-                    yield return false;

-            }

-        }

-

-        public override string ToString()

-        {

-            return _name + "(" + YP.getValue(_arg1) + ", " + YP.getValue(_arg2) + ", " +

-                YP.getValue(_arg3) + ")";

-        }

-

-        public bool termEqual(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor3)

-            {

-                Functor3 termFunctor = (Functor3)term;

-                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1)

-                     && YP.termEqual(_arg2, termFunctor._arg2)

-                     && YP.termEqual(_arg3, termFunctor._arg3);

-            }

-            return false;

-        }

-

-        public bool lessThan(Functor3 functor)

-        {

-            // Do the equal check first since it is faster.

-            if (!_name.Equals(functor._name))

-                return _name.lessThan(functor._name);

-

-            if (!YP.termEqual(_arg1, functor._arg1))

-                return YP.termLessThan(_arg1, functor._arg1);

-

-            if (!YP.termEqual(_arg2, functor._arg2))

-                return YP.termLessThan(_arg2, functor._arg2);

-

-            return YP.termLessThan(_arg3, functor._arg3);

-        }

-

-        public bool ground()

-        {

-            return YP.ground(_arg1) && YP.ground(_arg2) && YP.ground(_arg3);

-        }

-

-        public void addUniqueVariables(List<Variable> variableSet)

-        {

-            YP.addUniqueVariables(_arg1, variableSet);

-            YP.addUniqueVariables(_arg2, variableSet);

-            YP.addUniqueVariables(_arg3, variableSet);

-        }

-

-        public object makeCopy(Variable.CopyStore copyStore)

-        {

-            return new Functor3(_name, YP.makeCopy(_arg1, copyStore),

-                YP.makeCopy(_arg2, copyStore), YP.makeCopy(_arg3, copyStore));

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Functor3 : IUnifiable
+    {
+        public readonly Atom _name;
+        public readonly object _arg1;
+        public readonly object _arg2;
+        public readonly object _arg3;
+
+        public Functor3(Atom name, object arg1, object arg2, object arg3)
+        {
+            _name = name;
+            _arg1 = arg1;
+            _arg2 = arg2;
+            _arg3 = arg3;
+        }
+        
+        public Functor3(string name, object arg1, object arg2, object arg3)
+            : this(Atom.a(name), arg1, arg2, arg3)
+        {
+        }
+
+        public IEnumerable<bool> unify(object arg)
+        {
+            arg = YP.getValue(arg);
+            if (arg is Functor3)
+            {
+                Functor3 argFunctor = (Functor3)arg;
+                if (_name.Equals(argFunctor._name))
+                {
+                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))
+                    {
+                        foreach (bool l2 in YP.unify(_arg2, argFunctor._arg2))
+                        {
+                            foreach (bool l3 in YP.unify(_arg3, argFunctor._arg3))
+                                yield return false;
+                        }
+                    }
+                }
+            }
+            else if (arg is Variable)
+            {
+                foreach (bool l1 in ((Variable)arg).unify(this))
+                    yield return false;
+            }
+        }
+
+        public override string ToString()
+        {
+            return _name + "(" + YP.getValue(_arg1) + ", " + YP.getValue(_arg2) + ", " +
+                YP.getValue(_arg3) + ")";
+        }
+
+        public bool termEqual(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor3)
+            {
+                Functor3 termFunctor = (Functor3)term;
+                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1)
+                     && YP.termEqual(_arg2, termFunctor._arg2)
+                     && YP.termEqual(_arg3, termFunctor._arg3);
+            }
+            return false;
+        }
+
+        public bool lessThan(Functor3 functor)
+        {
+            // Do the equal check first since it is faster.
+            if (!_name.Equals(functor._name))
+                return _name.lessThan(functor._name);
+
+            if (!YP.termEqual(_arg1, functor._arg1))
+                return YP.termLessThan(_arg1, functor._arg1);
+
+            if (!YP.termEqual(_arg2, functor._arg2))
+                return YP.termLessThan(_arg2, functor._arg2);
+
+            return YP.termLessThan(_arg3, functor._arg3);
+        }
+
+        public bool ground()
+        {
+            return YP.ground(_arg1) && YP.ground(_arg2) && YP.ground(_arg3);
+        }
+
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            YP.addUniqueVariables(_arg1, variableSet);
+            YP.addUniqueVariables(_arg2, variableSet);
+            YP.addUniqueVariables(_arg3, variableSet);
+        }
+
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            return new Functor3(_name, YP.makeCopy(_arg1, copyStore),
+                YP.makeCopy(_arg2, copyStore), YP.makeCopy(_arg3, copyStore));
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/IndexedAnswers.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/IndexedAnswers.cs
index 3eac5fa..05b0a01 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/IndexedAnswers.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/IndexedAnswers.cs
@@ -1,288 +1,288 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    /// <summary>

-    /// An IndexedAnswers holds answers to a query based on the values of index arguments.

-    /// </summary>

-    public class IndexedAnswers : YP.IClause

-    {

-        // addAnswer adds the answer here and indexes it later.

-        private List<object[]> _allAnswers = new List<object[]>();

-        // The key has the arity of answers with non-null values for each indexed arg.  The value

-        //   is a list of the matching answers.  The signature is implicit in the pattern on non-null index args.

-        private Dictionary<HashedList, List<object[]>> _indexedAnswers =

-            new Dictionary<HashedList, List<object[]>>();

-        // Keeps track of whether we have started adding entries to _indexedAnswers for the signature.

-        private Dictionary<int, object> _gotAnswersForSignature = new Dictionary<int, object>();

-        private const int MAX_INDEX_ARGS = 31;

-

-        public IndexedAnswers()

-        {

-        }

-

-        /// <summary>

-        /// Elements of answer must be ground, since arguments with unbound variables make this

-        /// into a dynamic rule which we don't index.

-        /// </summary>

-        /// <param name="answer"></param>

-        public void addAnswer(object[] answer)

-        {

-            // Store a copy of the answer array.

-            object[] answerCopy = new object[answer.Length];

-            Variable.CopyStore copyStore = new Variable.CopyStore();

-            for (int i = 0; i < answer.Length; ++i)

-                answerCopy[i] = YP.makeCopy(answer[i], copyStore);

-            if (copyStore.getNUniqueVariables() > 0)

-                throw new InvalidOperationException

-                    ("Elements of answer must be ground, but found " + copyStore.getNUniqueVariables() +

-                     " unbound variables");

-            _allAnswers.Add(answerCopy);

-

-            // If match has already indexed answers for a signature, we need to add

-            //   this to the existing indexed answers.

-            foreach(int signature in _gotAnswersForSignature.Keys)

-                indexAnswerForSignature(answerCopy, signature);

-        }

-

-        private void indexAnswerForSignature(object[] answer, int signature)

-        {

-            // First find out which of the answer values can be used as an index.

-            object[] indexValues = new object[answer.Length];

-            for (int i = 0; i < answer.Length; ++i)

-            {

-                // We limit the number of indexed args in a 32-bit signature.

-                if (i >= MAX_INDEX_ARGS)

-                    indexValues[i] = null;

-                else

-                    indexValues[i] = getIndexValue(YP.getValue(answer[i]));

-            }

-

-            // We need an entry in indexArgs from indexValues for each 1 bit in signature.

-            HashedList indexArgs = new HashedList(indexValues.Length);

-            for (int i = 0; i < indexValues.Length; ++i)

-            {

-                if ((signature & (1 << i)) == 0)

-                    indexArgs.Add(null);

-                else

-                {

-                    if (indexValues[i] == null)

-                        // The signature wants an index value here, but we don't have one so

-                        //   we can't add it as an answer for this signature.

-                        return;

-                    else

-                        indexArgs.Add(indexValues[i]);

-                }

-            }

-

-            // Add the answer to the answers list for indexArgs, creating the entry if needed.

-            List<object[]> answers;

-            if (!_indexedAnswers.TryGetValue(indexArgs, out answers))

-            {

-                answers = new List<object[]>();

-                _indexedAnswers[indexArgs] = answers;

-            }

-            answers.Add(answer);

-        }

-

-        public IEnumerable<bool> match(object[] arguments)

-        {

-            // Set up indexArgs, up to arg position MAX_INDEX_ARGS.  The signature has a 1 bit for

-            //   each non-null index arg.

-            HashedList indexArgs = new HashedList(arguments.Length);

-            bool gotAllIndexArgs = true;

-            int signature = 0;

-            for (int i = 0; i < arguments.Length; ++i)

-            {

-                object indexValue = null;

-                if (i < MAX_INDEX_ARGS)

-                {

-                    // We limit the number of args in a 32-bit signature.

-                    indexValue = getIndexValue(YP.getValue(arguments[i]));

-                    if (indexValue != null)

-                        signature += (1 << i);

-                }

-                if (indexValue == null)

-                    gotAllIndexArgs = false;

-                indexArgs.Add(indexValue);

-            }

-

-            List<object[]> answers;

-            if (signature == 0)

-                // No index args, so we have to match from _allAnswers.

-                answers = _allAnswers;

-            else

-            {

-                if (!_gotAnswersForSignature.ContainsKey(signature))

-                {

-                    // We need to create the entry in _indexedAnswers.

-                    foreach (object[] answer in _allAnswers)

-                        indexAnswerForSignature(answer, signature);

-                    // Mark that we did this signature.

-                    _gotAnswersForSignature[signature] = null;

-                }

-                if (!_indexedAnswers.TryGetValue(indexArgs, out answers))

-                    yield break;

-            }

-

-            if (gotAllIndexArgs)

-            {

-                // All the arguments were already bound, so we don't need to do bindings.

-                yield return false;

-                yield break;

-            }

-

-            // Find matches in answers.

-            IEnumerator<bool>[] iterators = new IEnumerator<bool>[arguments.Length];

-            foreach (object[] answer in answers)

-            {

-                bool gotMatch = true;

-                int nIterators = 0;

-                // Try to bind all the arguments.

-                for (int i = 0; i < arguments.Length; ++i)

-                {

-                    if (indexArgs[i] != null)

-                        // We already matched this argument by looking up _indexedAnswers.

-                        continue;

-

-                    IEnumerator<bool> iterator = YP.unify(arguments[i], answer[i]).GetEnumerator();

-                    iterators[nIterators++] = iterator;

-                    // MoveNext() is true if YP.unify succeeds.

-                    if (!iterator.MoveNext())

-                    {

-                        gotMatch = false;

-                        break;

-                    }

-                }

-

-                try

-                {

-                    if (gotMatch)

-                        yield return false;

-                }

-                finally

-                {

-                    // Manually finalize all the iterators.

-                    for (int i = 0; i < nIterators; ++i)

-                        iterators[i].Dispose();

-                }

-            }

-        }

-

-        /// <summary>

-        /// A HashedList extends an ArrayList with methods to get a hash and to check equality

-        /// based on the elements of the list.

-        /// </summary>

-        public class HashedList : ArrayList

-        {

-            private bool _gotHashCode = false;

-            private int _hashCode;

-

-            public HashedList()

-                : base()

-            {

-            }

-

-            public HashedList(int capacity)

-                : base(capacity)

-            {

-            }

-

-            public HashedList(ICollection c)

-                : base(c)

-            {

-            }

-

-            // Debug: Should override all the other methods that change this.

-            public override int Add(object value)

-            {

-                _gotHashCode = false;

-                return base.Add(value);

-            }

-

-            public override int GetHashCode()

-            {

-                if (!_gotHashCode)

-                {

-                    int hashCode = 1;

-                    foreach (object obj in this)

-                        hashCode = 31 * hashCode + (obj == null ? 0 : obj.GetHashCode());

-                    _hashCode = hashCode;

-                    _gotHashCode = true;

-                }

-                return _hashCode;

-            }

-

-            public override bool Equals(object obj)

-            {

-                if (!(obj is ArrayList))

-                    return false;

-

-                ArrayList objList = (ArrayList)obj;

-                if (objList.Count != Count)

-                    return false;

-

-                for (int i = 0; i < Count; ++i)

-                {

-                    object value = objList[i];

-                    if (value == null)

-                    {

-                        if (this[i] != null)

-                            return false;

-                    }

-                    else

-                    {

-                        if (!value.Equals(this[i]))

-                            return false;

-                    }

-                }

-                return true;

-            }

-        }

-

-        /// <summary>

-        /// If we keep an index on value, return the value, or null if we don't index it.

-        /// </summary>

-        /// <param name="value">the term to examine.  Assume you already called YP.getValue(value)</param>

-        /// <returns></returns>

-        public static object getIndexValue(object value)

-        {

-            if (value is Atom || value is string || value is Int32 || value is DateTime)

-                return value;

-            else

-                return null;

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    /// <summary>
+    /// An IndexedAnswers holds answers to a query based on the values of index arguments.
+    /// </summary>
+    public class IndexedAnswers : YP.IClause
+    {
+        // addAnswer adds the answer here and indexes it later.
+        private List<object[]> _allAnswers = new List<object[]>();
+        // The key has the arity of answers with non-null values for each indexed arg.  The value
+        //   is a list of the matching answers.  The signature is implicit in the pattern on non-null index args.
+        private Dictionary<HashedList, List<object[]>> _indexedAnswers =
+            new Dictionary<HashedList, List<object[]>>();
+        // Keeps track of whether we have started adding entries to _indexedAnswers for the signature.
+        private Dictionary<int, object> _gotAnswersForSignature = new Dictionary<int, object>();
+        private const int MAX_INDEX_ARGS = 31;
+
+        public IndexedAnswers()
+        {
+        }
+
+        /// <summary>
+        /// Elements of answer must be ground, since arguments with unbound variables make this
+        /// into a dynamic rule which we don't index.
+        /// </summary>
+        /// <param name="answer"></param>
+        public void addAnswer(object[] answer)
+        {
+            // Store a copy of the answer array.
+            object[] answerCopy = new object[answer.Length];
+            Variable.CopyStore copyStore = new Variable.CopyStore();
+            for (int i = 0; i < answer.Length; ++i)
+                answerCopy[i] = YP.makeCopy(answer[i], copyStore);
+            if (copyStore.getNUniqueVariables() > 0)
+                throw new InvalidOperationException
+                    ("Elements of answer must be ground, but found " + copyStore.getNUniqueVariables() +
+                     " unbound variables");
+            _allAnswers.Add(answerCopy);
+
+            // If match has already indexed answers for a signature, we need to add
+            //   this to the existing indexed answers.
+            foreach(int signature in _gotAnswersForSignature.Keys)
+                indexAnswerForSignature(answerCopy, signature);
+        }
+
+        private void indexAnswerForSignature(object[] answer, int signature)
+        {
+            // First find out which of the answer values can be used as an index.
+            object[] indexValues = new object[answer.Length];
+            for (int i = 0; i < answer.Length; ++i)
+            {
+                // We limit the number of indexed args in a 32-bit signature.
+                if (i >= MAX_INDEX_ARGS)
+                    indexValues[i] = null;
+                else
+                    indexValues[i] = getIndexValue(YP.getValue(answer[i]));
+            }
+
+            // We need an entry in indexArgs from indexValues for each 1 bit in signature.
+            HashedList indexArgs = new HashedList(indexValues.Length);
+            for (int i = 0; i < indexValues.Length; ++i)
+            {
+                if ((signature & (1 << i)) == 0)
+                    indexArgs.Add(null);
+                else
+                {
+                    if (indexValues[i] == null)
+                        // The signature wants an index value here, but we don't have one so
+                        //   we can't add it as an answer for this signature.
+                        return;
+                    else
+                        indexArgs.Add(indexValues[i]);
+                }
+            }
+
+            // Add the answer to the answers list for indexArgs, creating the entry if needed.
+            List<object[]> answers;
+            if (!_indexedAnswers.TryGetValue(indexArgs, out answers))
+            {
+                answers = new List<object[]>();
+                _indexedAnswers[indexArgs] = answers;
+            }
+            answers.Add(answer);
+        }
+
+        public IEnumerable<bool> match(object[] arguments)
+        {
+            // Set up indexArgs, up to arg position MAX_INDEX_ARGS.  The signature has a 1 bit for
+            //   each non-null index arg.
+            HashedList indexArgs = new HashedList(arguments.Length);
+            bool gotAllIndexArgs = true;
+            int signature = 0;
+            for (int i = 0; i < arguments.Length; ++i)
+            {
+                object indexValue = null;
+                if (i < MAX_INDEX_ARGS)
+                {
+                    // We limit the number of args in a 32-bit signature.
+                    indexValue = getIndexValue(YP.getValue(arguments[i]));
+                    if (indexValue != null)
+                        signature += (1 << i);
+                }
+                if (indexValue == null)
+                    gotAllIndexArgs = false;
+                indexArgs.Add(indexValue);
+            }
+
+            List<object[]> answers;
+            if (signature == 0)
+                // No index args, so we have to match from _allAnswers.
+                answers = _allAnswers;
+            else
+            {
+                if (!_gotAnswersForSignature.ContainsKey(signature))
+                {
+                    // We need to create the entry in _indexedAnswers.
+                    foreach (object[] answer in _allAnswers)
+                        indexAnswerForSignature(answer, signature);
+                    // Mark that we did this signature.
+                    _gotAnswersForSignature[signature] = null;
+                }
+                if (!_indexedAnswers.TryGetValue(indexArgs, out answers))
+                    yield break;
+            }
+
+            if (gotAllIndexArgs)
+            {
+                // All the arguments were already bound, so we don't need to do bindings.
+                yield return false;
+                yield break;
+            }
+
+            // Find matches in answers.
+            IEnumerator<bool>[] iterators = new IEnumerator<bool>[arguments.Length];
+            foreach (object[] answer in answers)
+            {
+                bool gotMatch = true;
+                int nIterators = 0;
+                // Try to bind all the arguments.
+                for (int i = 0; i < arguments.Length; ++i)
+                {
+                    if (indexArgs[i] != null)
+                        // We already matched this argument by looking up _indexedAnswers.
+                        continue;
+
+                    IEnumerator<bool> iterator = YP.unify(arguments[i], answer[i]).GetEnumerator();
+                    iterators[nIterators++] = iterator;
+                    // MoveNext() is true if YP.unify succeeds.
+                    if (!iterator.MoveNext())
+                    {
+                        gotMatch = false;
+                        break;
+                    }
+                }
+
+                try
+                {
+                    if (gotMatch)
+                        yield return false;
+                }
+                finally
+                {
+                    // Manually finalize all the iterators.
+                    for (int i = 0; i < nIterators; ++i)
+                        iterators[i].Dispose();
+                }
+            }
+        }
+
+        /// <summary>
+        /// A HashedList extends an ArrayList with methods to get a hash and to check equality
+        /// based on the elements of the list.
+        /// </summary>
+        public class HashedList : ArrayList
+        {
+            private bool _gotHashCode = false;
+            private int _hashCode;
+
+            public HashedList()
+                : base()
+            {
+            }
+
+            public HashedList(int capacity)
+                : base(capacity)
+            {
+            }
+
+            public HashedList(ICollection c)
+                : base(c)
+            {
+            }
+
+            // Debug: Should override all the other methods that change this.
+            public override int Add(object value)
+            {
+                _gotHashCode = false;
+                return base.Add(value);
+            }
+
+            public override int GetHashCode()
+            {
+                if (!_gotHashCode)
+                {
+                    int hashCode = 1;
+                    foreach (object obj in this)
+                        hashCode = 31 * hashCode + (obj == null ? 0 : obj.GetHashCode());
+                    _hashCode = hashCode;
+                    _gotHashCode = true;
+                }
+                return _hashCode;
+            }
+
+            public override bool Equals(object obj)
+            {
+                if (!(obj is ArrayList))
+                    return false;
+
+                ArrayList objList = (ArrayList)obj;
+                if (objList.Count != Count)
+                    return false;
+
+                for (int i = 0; i < Count; ++i)
+                {
+                    object value = objList[i];
+                    if (value == null)
+                    {
+                        if (this[i] != null)
+                            return false;
+                    }
+                    else
+                    {
+                        if (!value.Equals(this[i]))
+                            return false;
+                    }
+                }
+                return true;
+            }
+        }
+
+        /// <summary>
+        /// If we keep an index on value, return the value, or null if we don't index it.
+        /// </summary>
+        /// <param name="value">the term to examine.  Assume you already called YP.getValue(value)</param>
+        /// <returns></returns>
+        public static object getIndexValue(object value)
+        {
+            if (value is Atom || value is string || value is Int32 || value is DateTime)
+                return value;
+            else
+                return null;
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/ListPair.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/ListPair.cs
index b16e8a4..681c445 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/ListPair.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/ListPair.cs
@@ -1,156 +1,156 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class ListPair : Functor2

-    {

-        public ListPair(object head, object tail) : base(Atom.DOT, head, tail)

-        {

-        }

-

-        public static object make(List<object> list)

-        {

-            if (list.Count <= 0)

-                return Atom.NIL;

-

-            object result = Atom.NIL;

-            // Start from the end.

-            for (int i = list.Count - 1; i >= 0; --i)

-                result = new ListPair(list[i], result);

-            return result;

-        }

-

-        public static object make(object[] array)

-        {

-            if (array.Length <= 0)

-                return Atom.NIL;

-

-            object result = Atom.NIL;

-            // Start from the end.

-            for (int i = array.Length - 1; i >= 0; --i)

-                result = new ListPair(array[i], result);

-            return result;

-        }

-

-        /// <summary>

-        /// Return a ListPair version of array, where repeated elements 

-        /// (according to YP.termEqual) are removed.

-        /// </summary>

-        /// <param name="array"></param>

-        /// <returns></returns>

-        public static object makeWithoutRepeatedTerms(object[] array)

-        {

-            if (array.Length <= 0)

-                return Atom.NIL;

-

-            // Start from the end.

-            object previousTerm = array[array.Length - 1];

-            object result = new ListPair(previousTerm, Atom.NIL);

-            for (int i = array.Length - 2; i >= 0; --i)

-            {

-                object term = array[i];

-                if (YP.termEqual(term, previousTerm))

-                    continue;

-                result = new ListPair(term, result);

-                previousTerm = term;

-            }

-            return result;

-        }

-

-        /// <summary>

-        /// Return a ListPair version of array, where repeated elements 

-        /// (according to YP.termEqual) are removed.

-        /// </summary>

-        /// <param name="array"></param>

-        /// <returns></returns>

-        public static object makeWithoutRepeatedTerms(List<object> array)

-        {

-            if (array.Count <= 0)

-                return Atom.NIL;

-

-            // Start from the end.

-            object previousTerm = array[array.Count - 1];

-            object result = new ListPair(previousTerm, Atom.NIL);

-            for (int i = array.Count - 2; i >= 0; --i)

-            {

-                object term = array[i];

-                if (YP.termEqual(term, previousTerm))

-                    continue;

-                result = new ListPair(term, result);

-                previousTerm = term;

-            }

-            return result;

-        }

-

-        public static object make(object element1)

-        {

-            return new ListPair(element1, Atom.NIL);

-        }

-

-        public static object make(object element1, object element2)

-        {

-            return new ListPair(element1, new ListPair(element2, Atom.NIL));

-        }

-

-        public static object make(object element1, object element2, object element3)

-        {

-            return new ListPair(element1, 

-                new ListPair(element2, new ListPair(element3, Atom.NIL)));

-        }

-

-        /// <summary>

-        /// Return an array of the elements in list or null if it is not

-        /// a proper list.  If list is Atom.NIL, return an array of zero elements.

-        /// This does not call YP.getValue on each element.

-        /// </summary>

-        /// <param name="list"></param>

-        /// <returns></returns>

-        public static object[] toArray(object list)

-        {

-            list = YP.getValue(list);

-            if (list.Equals(Atom.NIL))

-                return new object[0];

-

-            List<object> result = new List<object>();

-            for (object element = list;

-                 element is Functor2 && ((Functor2)element)._name == Atom.DOT;

-                 element = YP.getValue(((Functor2)element)._arg2))

-                result.Add(((Functor2)element)._arg1);

-

-            if (result.Count <= 0)

-                return null;

-            return result.ToArray();

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class ListPair : Functor2
+    {
+        public ListPair(object head, object tail) : base(Atom.DOT, head, tail)
+        {
+        }
+
+        public static object make(List<object> list)
+        {
+            if (list.Count <= 0)
+                return Atom.NIL;
+
+            object result = Atom.NIL;
+            // Start from the end.
+            for (int i = list.Count - 1; i >= 0; --i)
+                result = new ListPair(list[i], result);
+            return result;
+        }
+
+        public static object make(object[] array)
+        {
+            if (array.Length <= 0)
+                return Atom.NIL;
+
+            object result = Atom.NIL;
+            // Start from the end.
+            for (int i = array.Length - 1; i >= 0; --i)
+                result = new ListPair(array[i], result);
+            return result;
+        }
+
+        /// <summary>
+        /// Return a ListPair version of array, where repeated elements 
+        /// (according to YP.termEqual) are removed.
+        /// </summary>
+        /// <param name="array"></param>
+        /// <returns></returns>
+        public static object makeWithoutRepeatedTerms(object[] array)
+        {
+            if (array.Length <= 0)
+                return Atom.NIL;
+
+            // Start from the end.
+            object previousTerm = array[array.Length - 1];
+            object result = new ListPair(previousTerm, Atom.NIL);
+            for (int i = array.Length - 2; i >= 0; --i)
+            {
+                object term = array[i];
+                if (YP.termEqual(term, previousTerm))
+                    continue;
+                result = new ListPair(term, result);
+                previousTerm = term;
+            }
+            return result;
+        }
+
+        /// <summary>
+        /// Return a ListPair version of array, where repeated elements 
+        /// (according to YP.termEqual) are removed.
+        /// </summary>
+        /// <param name="array"></param>
+        /// <returns></returns>
+        public static object makeWithoutRepeatedTerms(List<object> array)
+        {
+            if (array.Count <= 0)
+                return Atom.NIL;
+
+            // Start from the end.
+            object previousTerm = array[array.Count - 1];
+            object result = new ListPair(previousTerm, Atom.NIL);
+            for (int i = array.Count - 2; i >= 0; --i)
+            {
+                object term = array[i];
+                if (YP.termEqual(term, previousTerm))
+                    continue;
+                result = new ListPair(term, result);
+                previousTerm = term;
+            }
+            return result;
+        }
+
+        public static object make(object element1)
+        {
+            return new ListPair(element1, Atom.NIL);
+        }
+
+        public static object make(object element1, object element2)
+        {
+            return new ListPair(element1, new ListPair(element2, Atom.NIL));
+        }
+
+        public static object make(object element1, object element2, object element3)
+        {
+            return new ListPair(element1, 
+                new ListPair(element2, new ListPair(element3, Atom.NIL)));
+        }
+
+        /// <summary>
+        /// Return an array of the elements in list or null if it is not
+        /// a proper list.  If list is Atom.NIL, return an array of zero elements.
+        /// This does not call YP.getValue on each element.
+        /// </summary>
+        /// <param name="list"></param>
+        /// <returns></returns>
+        public static object[] toArray(object list)
+        {
+            list = YP.getValue(list);
+            if (list.Equals(Atom.NIL))
+                return new object[0];
+
+            List<object> result = new List<object>();
+            for (object element = list;
+                 element is Functor2 && ((Functor2)element)._name == Atom.DOT;
+                 element = YP.getValue(((Functor2)element)._arg2))
+                result.Add(((Functor2)element)._arg1);
+
+            if (result.Count <= 0)
+                return null;
+            return result.ToArray();
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Parser.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Parser.cs
index 7ef5c51..a21a471 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Parser.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Parser.cs
@@ -1,4457 +1,4457 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class Parser

-    {

-        public static IEnumerable<bool> formatError(object Output, object Format, object Arguments)

-        {

-            // Debug: Simple implementation for now.

-            YP.write(Format);

-            YP.write(Arguments);

-            YP.nl();

-            yield return false;

-        }

-

-        // Debug: Hand-modify this central predicate to do tail recursion.

-        public static IEnumerable<bool> read_tokens(object arg1, object arg2, object arg3)

-        {

-            bool repeat = true;

-            while (repeat)

-            {

-                repeat = false;

-                {

-                    object C1 = arg1;

-                    object Dict = arg2;

-                    object Tokens = arg3;

-                    Variable C2 = new Variable();

-                    if (YP.lessThanOrEqual(C1, new ListPair(32, Atom.NIL)))

-                    {

-                        if (YP.greaterThanOrEqual(C1, 0))

-                        {

-                            foreach (bool l4 in YP.get_code(C2))

-                            {

-#if false

-                                foreach (bool l5 in read_tokens(C2, Dict, Tokens))

-                                {

-                                    yield return false;

-                                }

-#endif

-                                arg1 = YP.getValue(C2);

-                                arg2 = YP.getValue(Dict);

-                                arg3 = YP.getValue(Tokens);

-                                repeat = true;

-                            }

-                        }

-                        goto cutIf1;

-                    }

-                    if (YP.greaterThanOrEqual(C1, new ListPair(97, Atom.NIL)))

-                    {

-                        if (YP.lessThanOrEqual(C1, new ListPair(122, Atom.NIL)))

-                        {

-                            foreach (bool l4 in read_identifier(C1, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf2;

-                        }

-                    }

-                    if (YP.greaterThanOrEqual(C1, new ListPair(65, Atom.NIL)))

-                    {

-                        if (YP.lessThanOrEqual(C1, new ListPair(90, Atom.NIL)))

-                        {

-                            foreach (bool l4 in read_variable(C1, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf3;

-                        }

-                    }

-                    if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))

-                    {

-                        if (YP.lessThanOrEqual(C1, new ListPair(57, Atom.NIL)))

-                        {

-                            foreach (bool l4 in read_number(C1, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf4;

-                        }

-                    }

-                    if (YP.lessThan(C1, 127))

-                    {

-                        foreach (bool l3 in read_special(C1, Dict, Tokens))

-                        {

-                            yield return false;

-                        }

-                        goto cutIf5;

-                    }

-                    if (YP.lessThanOrEqual(C1, 160))

-                    {

-                        foreach (bool l3 in YP.get_code(C2))

-                        {

-#if false

-                            foreach (bool l4 in read_tokens(C2, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-#endif

-                            arg1 = YP.getValue(C2);

-                            arg2 = YP.getValue(Dict);

-                            arg3 = YP.getValue(Tokens);

-                            repeat = true;

-                        }

-                        goto cutIf6;

-                    }

-                    if (YP.greaterThanOrEqual(C1, 223))

-                    {

-                        if (YP.notEqual(C1, 247))

-                        {

-                            foreach (bool l4 in read_identifier(C1, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf7;

-                        }

-                    }

-                    if (YP.greaterThanOrEqual(C1, 192))

-                    {

-                        if (YP.notEqual(C1, 215))

-                        {

-                            foreach (bool l4 in read_variable(C1, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf8;

-                        }

-                    }

-                    if (YP.notEqual(C1, 170))

-                    {

-                        if (YP.notEqual(C1, 186))

-                        {

-                            foreach (bool l4 in read_symbol(C1, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf9;

-                        }

-                    }

-                    foreach (bool l2 in read_identifier(C1, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                cutIf9:

-                cutIf8:

-                cutIf7:

-                cutIf6:

-                cutIf5:

-                cutIf4:

-                cutIf3:

-                cutIf2:

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        // Compiler output follows.

-

-        class YPInnerClass { }

-        static Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }

-

-        public static IEnumerable<bool> parseInput(object TermList)

-        {

-            {

-                Variable TermAndVariables = new Variable();

-                FindallAnswers findallAnswers1 = new FindallAnswers(TermAndVariables);

-                foreach (bool l2 in parseInputHelper(TermAndVariables))

-                {

-                    findallAnswers1.add();

-                }

-                foreach (bool l2 in findallAnswers1.result(TermList))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> parseInputHelper(object arg1)

-        {

-            {

-                Variable Term = new Variable();

-                Variable Variables = new Variable();

-                Variable Answer = new Variable();

-                Variable x4 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"f", Term, Variables)))

-                {

-                    foreach (bool l3 in YP.repeat())

-                    {

-                        foreach (bool l4 in portable_read3(Answer, Variables, x4))

-                        {

-                            foreach (bool l5 in remove_pos(Answer, Term))

-                            {

-                                if (YP.termEqual(Term, Atom.a(@"end_of_file")))

-                                {

-                                    yield break;

-                                    goto cutIf1;

-                                }

-                                yield return false;

-                            cutIf1:

-                                { }

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> clear_errors()

-        {

-            {

-                yield return false;

-            }

-        }

-

-        public static IEnumerable<bool> remove_pos(object arg1, object arg2)

-        {

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, X))

-                {

-                    foreach (bool l3 in YP.unify(arg2, X))

-                    {

-                        if (YP.var(X))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object X = arg2;

-                Variable _Pos = new Variable();

-                Variable _Name = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"$VAR", _Pos, _Name, X)))

-                {

-                    if (YP.var(X))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable H = new Variable();

-                Variable T = new Variable();

-                Variable NH = new Variable();

-                Variable NT = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(H, T)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(NH, NT)))

-                    {

-                        foreach (bool l4 in remove_pos(H, NH))

-                        {

-                            foreach (bool l5 in remove_pos(T, NT))

-                            {

-                                yield return false;

-                            }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable NA = new Variable();

-                Variable NB = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new Functor2(@",", NA, NB)))

-                    {

-                        foreach (bool l4 in remove_pos(A, NA))

-                        {

-                            foreach (bool l5 in remove_pos(B, NB))

-                            {

-                                yield return false;

-                            }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable Atom_1 = new Variable();

-                Variable _F = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom_1))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom_1))

-                    {

-                        foreach (bool l4 in YP.functor(Atom_1, _F, 0))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                object Term = arg1;

-                object NewTerm = arg2;

-                Variable Func = new Variable();

-                Variable _Pos = new Variable();

-                Variable Args = new Variable();

-                Variable NArgs = new Variable();

-                if (YP.nonvar(Term))

-                {

-                    foreach (bool l3 in YP.univ(Term, new ListPair(Func, new ListPair(_Pos, Args))))

-                    {

-                        foreach (bool l4 in remove_pos(Args, NArgs))

-                        {

-                            foreach (bool l5 in YP.univ(NewTerm, new ListPair(Func, NArgs)))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> portable_read_position(object Term, object PosTerm, object Syntax)

-        {

-            {

-                foreach (bool l2 in portable_read(PosTerm, Syntax))

-                {

-                    foreach (bool l3 in remove_pos(PosTerm, Term))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> portable_read(object Answer, object Syntax)

-        {

-            {

-                Variable Tokens = new Variable();

-                Variable ParseTokens = new Variable();

-                foreach (bool l2 in read_tokens1(Tokens))

-                {

-                    foreach (bool l3 in remove_comments(Tokens, ParseTokens, Syntax))

-                    {

-                        foreach (bool l4 in parse2(ParseTokens, Answer))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> portable_read3(object Answer, object Variables, object Syntax)

-        {

-            {

-                Variable Tokens = new Variable();

-                Variable ParseTokens = new Variable();

-                foreach (bool l2 in read_tokens2(Tokens, Variables))

-                {

-                    foreach (bool l3 in remove_comments(Tokens, ParseTokens, Syntax))

-                    {

-                        foreach (bool l4 in parse2(ParseTokens, Answer))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> remove_comments(object arg1, object arg2, object arg3)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                object Ys = arg2;

-                Variable S = new Variable();

-                Variable E = new Variable();

-                Variable Xs = new Variable();

-                Variable Zs = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"comment", S, E), Xs)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"comment", S, E), Zs)))

-                    {

-                        foreach (bool l4 in remove_comments(Xs, Ys, Zs))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Xs = new Variable();

-                Variable Ys = new Variable();

-                Variable Pos2 = new Variable();

-                Variable Zs = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"/", Atom.a(@"["), Pos), Xs)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"["), Ys)))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, new ListPair(new Functor2(@"list", Pos, Pos2), Zs)))

-                        {

-                            foreach (bool l5 in YP.unify(Pos2, YP.add(Pos, 1)))

-                            {

-                                foreach (bool l6 in remove_comments(Xs, Ys, Zs))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Xs = new Variable();

-                Variable Ys = new Variable();

-                Variable Pos2 = new Variable();

-                Variable Zs = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"/", Atom.a(@"]"), Pos), Xs)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"]"), Ys)))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, new ListPair(new Functor2(@"list", Pos, Pos2), Zs)))

-                        {

-                            foreach (bool l5 in YP.unify(Pos2, YP.add(Pos, 1)))

-                            {

-                                foreach (bool l6 in remove_comments(Xs, Ys, Zs))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object Zs = arg3;

-                Variable Token = new Variable();

-                Variable Xs = new Variable();

-                Variable Ys = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, Xs)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Token, Ys)))

-                    {

-                        foreach (bool l4 in remove_comments(Xs, Ys, Zs))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> expect(object Token, object arg2, object arg3)

-        {

-            {

-                object Rest = arg3;

-                foreach (bool l2 in YP.unify(arg2, new ListPair(Token, Rest)))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-            {

-                object S0 = arg2;

-                object x3 = arg3;

-                foreach (bool l2 in syntax_error(new ListPair(Token, new ListPair(Atom.a(@"or"), new ListPair(Atom.a(@"operator"), new ListPair(Atom.a(@"expected"), Atom.NIL)))), S0))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> parse2(object Tokens, object Answer)

-        {

-            {

-                Variable Term = new Variable();

-                Variable LeftOver = new Variable();

-                foreach (bool l2 in clear_errors())

-                {

-                    foreach (bool l3 in parse(Tokens, 1200, Term, LeftOver))

-                    {

-                        foreach (bool l4 in all_read(LeftOver))

-                        {

-                            foreach (bool l5 in YP.unify(Answer, Term))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                    }

-                    foreach (bool l3 in syntax_error(Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> all_read(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    yield return false;

-                }

-            }

-            {

-                Variable Token = new Variable();

-                Variable S = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S)))

-                {

-                    foreach (bool l3 in syntax_error(new ListPair(Atom.a(@"operator"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"after"), new ListPair(Atom.a(@"expression"), Atom.NIL)))), new ListPair(Token, S)))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> parse(object arg1, object arg2, object arg3, object arg4)

-        {

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in syntax_error(new ListPair(Atom.a(@"expression"), new ListPair(Atom.a(@"expected"), Atom.NIL)), Atom.NIL))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Precedence = arg2;

-                object Term = arg3;

-                object LeftOver = arg4;

-                Variable Token = new Variable();

-                Variable RestTokens = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, RestTokens)))

-                {

-                    foreach (bool l3 in parse5(Token, RestTokens, Precedence, Term, LeftOver))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> parse5(object arg1, object arg2, object arg3, object arg4, object arg5)

-        {

-            {

-                object S0 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))

-                {

-                    foreach (bool l3 in cannot_start(Atom.a(@"}"), S0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))

-                {

-                    foreach (bool l3 in cannot_start(Atom.a(@"]"), S0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))

-                {

-                    foreach (bool l3 in cannot_start(Atom.a(@")"), S0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))

-                {

-                    foreach (bool l3 in cannot_start(Atom.a(@","), S0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))

-                {

-                    foreach (bool l3 in cannot_start(Atom.a(@"|"), S0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Chars = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", Chars)))

-                {

-                    foreach (bool l3 in exprtl0(S0, Chars, Precedence, Answer, S))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Number = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", Number)))

-                {

-                    foreach (bool l3 in exprtl0(S0, Number, Precedence, Answer, S))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"]"), S1)))

-                    {

-                        foreach (bool l4 in read_atom(new Functor2(@"/", Atom.NIL, 0), S1, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S1 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Arg1 = new Variable();

-                Variable S2 = new Variable();

-                Variable RestArgs = new Variable();

-                Variable S3 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))

-                {

-                    foreach (bool l3 in parse(S1, 999, Arg1, S2))

-                    {

-                        foreach (bool l4 in read_list(S2, RestArgs, S3))

-                        {

-                            foreach (bool l5 in exprtl0(S3, new ListPair(Arg1, RestArgs), Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object S1 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Term = new Variable();

-                Variable S2 = new Variable();

-                Variable S3 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))

-                {

-                    foreach (bool l3 in parse(S1, 1200, Term, S2))

-                    {

-                        foreach (bool l4 in expect(Atom.a(@")"), S2, S3))

-                        {

-                            foreach (bool l5 in exprtl0(S3, Term, Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object S1 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Term = new Variable();

-                Variable S2 = new Variable();

-                Variable S3 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))

-                {

-                    foreach (bool l3 in parse(S1, 1200, Term, S2))

-                    {

-                        foreach (bool l4 in expect(Atom.a(@")"), S2, S3))

-                        {

-                            foreach (bool l5 in exprtl0(S3, Term, Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable _Pos = new Variable();

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"{"), _Pos)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"}"), S1)))

-                    {

-                        foreach (bool l4 in read_atom(Atom.a(@"{}"), S1, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S1 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Pos = new Variable();

-                Variable Term = new Variable();

-                Variable S2 = new Variable();

-                Variable S3 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"{"), Pos)))

-                {

-                    foreach (bool l3 in parse(S1, 1200, Term, S2))

-                    {

-                        foreach (bool l4 in expect(Atom.a(@"}"), S2, S3))

-                        {

-                            foreach (bool l5 in exprtl0(S3, new Functor2(@"{}", Pos, Term), Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Variable_1 = new Variable();

-                Variable Name = new Variable();

-                Variable Pos = new Variable();

-                Variable S1 = new Variable();

-                Variable Arg1 = new Variable();

-                Variable S2 = new Variable();

-                Variable RestArgs = new Variable();

-                Variable S3 = new Variable();

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", Variable_1, Name, Pos)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"("), S1)))

-                    {

-                        foreach (bool l4 in parse(S1, 999, Arg1, S2))

-                        {

-                            foreach (bool l5 in read_args(S2, RestArgs, S3))

-                            {

-                                foreach (bool l6 in YP.univ(Term, new ListPair(Atom.a(@"call"), new ListPair(new Functor3(@"$VAR", Pos, Name, Variable_1), new ListPair(Arg1, RestArgs)))))

-                                {

-                                    foreach (bool l7 in exprtl0(S3, Term, Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                                yield break;

-                            }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Variable_1 = new Variable();

-                Variable Name = new Variable();

-                Variable Pos = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", Variable_1, Name, Pos)))

-                {

-                    foreach (bool l3 in exprtl0(S0, new Functor3(@"$VAR", Pos, Name, Variable_1), Precedence, Answer, S))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Atom_1 = new Variable();

-                Variable P = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", Atom_1, P)))

-                {

-                    foreach (bool l3 in read_atom(new Functor2(@"/", Atom_1, P), S0, Precedence, Answer, S))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_atom(object arg1, object arg2, object Precedence, object Answer, object S)

-        {

-            {

-                Variable _Pos = new Variable();

-                Variable Number = new Variable();

-                Variable S1 = new Variable();

-                Variable Negative = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"-"), _Pos)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor1(@"number", Number), S1)))

-                    {

-                        foreach (bool l4 in YP.unify(Negative, YP.negate(Number)))

-                        {

-                            foreach (bool l5 in exprtl0(S1, Negative, Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable Functor_1 = new Variable();

-                Variable Pos = new Variable();

-                Variable S1 = new Variable();

-                Variable Arg1 = new Variable();

-                Variable S2 = new Variable();

-                Variable RestArgs = new Variable();

-                Variable S3 = new Variable();

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Functor_1, Pos)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"("), S1)))

-                    {

-                        foreach (bool l4 in parse(S1, 999, Arg1, S2))

-                        {

-                            foreach (bool l5 in read_args(S2, RestArgs, S3))

-                            {

-                                foreach (bool l6 in YP.univ(Term, new ListPair(Functor_1, new ListPair(Pos, new ListPair(Arg1, RestArgs)))))

-                                {

-                                    foreach (bool l7 in exprtl0(S3, Term, Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                                yield break;

-                            }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                Variable Op = new Variable();

-                Variable Pos = new Variable();

-                Variable Oprec = new Variable();

-                Variable Aprec = new Variable();

-                Variable Flag = new Variable();

-                Variable Term = new Variable();

-                Variable Arg = new Variable();

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Op, Pos)))

-                {

-                    foreach (bool l3 in prefixop(Op, Oprec, Aprec))

-                    {

-                        foreach (bool l4 in possible_right_operand(S0, Flag))

-                        {

-                            if (YP.lessThan(Flag, 0))

-                            {

-                                foreach (bool l6 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, Atom.NIL))))

-                                {

-                                    foreach (bool l7 in exprtl0(S0, Term, Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                                goto cutIf1;

-                            }

-                            if (YP.greaterThan(Oprec, Precedence))

-                            {

-                                foreach (bool l6 in syntax_error(new ListPair(Atom.a(@"prefix"), new ListPair(Atom.a(@"operator"), new ListPair(Op, new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"context"), new ListPair(Atom.a(@"with"), new ListPair(Atom.a(@"precedence"), new ListPair(Precedence, Atom.NIL)))))))), S0))

-                                {

-                                    yield return false;

-                                }

-                                goto cutIf2;

-                            }

-                            if (YP.greaterThan(Flag, 0))

-                            {

-                                foreach (bool l6 in parse(S0, Aprec, Arg, S1))

-                                {

-                                    foreach (bool l7 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, new ListPair(Arg, Atom.NIL)))))

-                                    {

-                                        foreach (bool l8 in exprtl(S1, Oprec, Term, Precedence, Answer, S))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    yield break;

-                                }

-                                goto cutIf3;

-                            }

-                            foreach (bool l5 in peepop(S0, S1))

-                            {

-                                foreach (bool l6 in prefix_is_atom(S1, Oprec))

-                                {

-                                    foreach (bool l7 in exprtl(S1, Oprec, new Functor2(@"/", Op, Pos), Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            }

-                            foreach (bool l5 in parse(S0, Aprec, Arg, S1))

-                            {

-                                foreach (bool l6 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, new ListPair(Arg, Atom.NIL)))))

-                                {

-                                    foreach (bool l7 in exprtl(S1, Oprec, Term, Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                                yield break;

-                            }

-                        cutIf3:

-                        cutIf2:

-                        cutIf1:

-                            { }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S0 = arg2;

-                Variable Atom_1 = new Variable();

-                Variable Pos = new Variable();

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom_1, Pos)))

-                {

-                    foreach (bool l3 in YP.univ(Term, new ListPair(Atom_1, new ListPair(Pos, Atom.NIL))))

-                    {

-                        foreach (bool l4 in exprtl0(S0, Term, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> cannot_start(object Token, object S0)

-        {

-            {

-                foreach (bool l2 in syntax_error(new ListPair(Token, new ListPair(Atom.a(@"cannot"), new ListPair(Atom.a(@"start"), new ListPair(Atom.a(@"an"), new ListPair(Atom.a(@"expression"), Atom.NIL))))), S0))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_args(object arg1, object arg2, object arg3)

-        {

-            {

-                object S = arg3;

-                Variable S1 = new Variable();

-                Variable Term = new Variable();

-                Variable Rest = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@","), S1)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(Term, Rest)))

-                    {

-                        foreach (bool l4 in parse(S1, 999, Term, S2))

-                        {

-                            foreach (bool l5 in read_args(S2, Rest, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S = arg3;

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@")"), S)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S = arg1;

-                object x2 = arg2;

-                object x3 = arg3;

-                foreach (bool l2 in syntax_error(new ListPair(Atom.a(@", or )"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"arguments"), Atom.NIL)))), S))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_list(object arg1, object arg2, object arg3)

-        {

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in syntax_error(new ListPair(Atom.a(@", | or ]"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"list"), Atom.NIL)))), Atom.NIL))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Rest = arg2;

-                object S = arg3;

-                Variable Token = new Variable();

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S1)))

-                {

-                    foreach (bool l3 in read_list4(Token, S1, Rest, S))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_list4(object arg1, object arg2, object arg3, object arg4)

-        {

-            {

-                object S1 = arg2;

-                object S = arg4;

-                Variable Term = new Variable();

-                Variable Rest = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Term, Rest)))

-                    {

-                        foreach (bool l4 in parse(S1, 999, Term, S2))

-                        {

-                            foreach (bool l5 in read_list(S2, Rest, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object S1 = arg2;

-                object Rest = arg3;

-                object S = arg4;

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))

-                {

-                    foreach (bool l3 in parse(S1, 999, Rest, S2))

-                    {

-                        foreach (bool l4 in expect(Atom.a(@"]"), S2, S))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                    yield break;

-                }

-            }

-            {

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, S1))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))

-                        {

-                            foreach (bool l5 in YP.unify(arg4, S1))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Token = arg1;

-                object S1 = arg2;

-                object x3 = arg3;

-                object x4 = arg4;

-                foreach (bool l2 in syntax_error(new ListPair(Atom.a(@", | or ]"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"list"), Atom.NIL)))), new ListPair(Token, S1)))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> possible_right_operand(object arg1, object arg2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Flag = arg2;

-                Variable H = new Variable();

-                Variable T = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(H, T)))

-                {

-                    foreach (bool l3 in possible_right_operand3(H, Flag, T))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> possible_right_operand3(object arg1, object arg2, object arg3)

-        {

-            {

-                object x4 = arg3;

-                Variable x1 = new Variable();

-                Variable x2 = new Variable();

-                Variable x3 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", x1, x2, x3)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x2 = arg3;

-                Variable x1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", x1)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x2 = arg3;

-                Variable x1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", x1)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                Variable x1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 0))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, new ListPair(Atom.a(@"]"), x1)))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                Variable x1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 0))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, new ListPair(Atom.a(@"}"), x1)))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x3 = arg3;

-                Variable x1 = new Variable();

-                Variable x2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", x1, x2)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> peepop(object arg1, object arg2)

-        {

-            {

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), new ListPair(Atom.a(@"("), S1))))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor2(@"atom", F, Pos), new ListPair(Atom.a(@"("), S1))))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable S1 = new Variable();

-                Variable L = new Variable();

-                Variable P = new Variable();

-                Variable R = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), S1)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L, P, R }), S1)))

-                    {

-                        foreach (bool l4 in infixop(F, L, P, R))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable S1 = new Variable();

-                Variable L = new Variable();

-                Variable P = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), S1)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L, P), S1)))

-                    {

-                        foreach (bool l4 in postfixop(F, L, P))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                Variable S0 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, S0))

-                {

-                    foreach (bool l3 in YP.unify(arg2, S0))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> prefix_is_atom(object arg1, object arg2)

-        {

-            {

-                object Precedence = arg2;

-                Variable Token = new Variable();

-                Variable x2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, x2)))

-                {

-                    foreach (bool l3 in prefix_is_atom(Token, Precedence))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object P = arg2;

-                Variable x1 = new Variable();

-                Variable L = new Variable();

-                Variable x3 = new Variable();

-                Variable x4 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { x1, L, x3, x4 })))

-                {

-                    if (YP.greaterThanOrEqual(L, P))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object P = arg2;

-                Variable x1 = new Variable();

-                Variable L = new Variable();

-                Variable x3 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(Atom.a(@"postfixop", Atom.a(@"")), x1, L, x3)))

-                {

-                    if (YP.greaterThanOrEqual(L, P))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))

-                {

-                    yield return false;

-                }

-            }

-            {

-                object x1 = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))

-                {

-                    yield return false;

-                }

-            }

-            {

-                object x1 = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))

-                {

-                    yield return false;

-                }

-            }

-            {

-                object P = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))

-                {

-                    if (YP.greaterThanOrEqual(1100, P))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object P = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))

-                {

-                    if (YP.greaterThanOrEqual(1000, P))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> exprtl0(object arg1, object arg2, object arg3, object arg4, object arg5)

-        {

-            {

-                object x2 = arg3;

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Term))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Term))

-                        {

-                            foreach (bool l5 in YP.unify(arg5, Atom.NIL))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable Token = new Variable();

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S1)))

-                {

-                    foreach (bool l3 in exprtl0_6(Token, Term, Precedence, Answer, S, S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> exprtl0_6(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)

-        {

-            {

-                object x2 = arg3;

-                object S1 = arg6;

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Term))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Term))

-                        {

-                            foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@"}"), S1)))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object x2 = arg3;

-                object S1 = arg6;

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Term))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Term))

-                        {

-                            foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@"]"), S1)))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object x2 = arg3;

-                object S1 = arg6;

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Term))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Term))

-                        {

-                            foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@")"), S1)))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                object S1 = arg6;

-                Variable Next = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))

-                {

-                    if (YP.greaterThanOrEqual(Precedence, 1000))

-                    {

-                        foreach (bool l4 in parse(S1, 1000, Next, S2))

-                        {

-                            foreach (bool l5 in exprtl(S2, 1000, new Functor2(@",", Term, Next), Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in YP.unify(Answer, Term))

-                    {

-                        foreach (bool l4 in YP.unify(S, new ListPair(Atom.a(@","), S1)))

-                        {

-                            yield return false;

-                        }

-                    }

-                cutIf1:

-                    { }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                object S1 = arg6;

-                Variable Next = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))

-                {

-                    if (YP.greaterThanOrEqual(Precedence, 1100))

-                    {

-                        foreach (bool l4 in parse(S1, 1100, Next, S2))

-                        {

-                            foreach (bool l5 in exprtl(S2, 1100, new Functor2(@";", Term, Next), Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                        goto cutIf2;

-                    }

-                    foreach (bool l3 in YP.unify(Answer, Term))

-                    {

-                        foreach (bool l4 in YP.unify(S, new ListPair(Atom.a(@"|"), S1)))

-                        {

-                            yield return false;

-                        }

-                    }

-                cutIf2:

-                    { }

-                }

-            }

-            {

-                object x2 = arg2;

-                object x3 = arg3;

-                object x4 = arg4;

-                object x5 = arg5;

-                object S1 = arg6;

-                Variable S = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", S)))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"chars"), new Functor1(@"string", S), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x2 = arg2;

-                object x3 = arg3;

-                object x4 = arg4;

-                object x5 = arg5;

-                object S1 = arg6;

-                Variable N = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", N)))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"number"), new Functor1(@"number", N), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))

-                {

-                    foreach (bool l3 in YP.unify(arg6, new ListPair(Atom.a(@"}"), S1)))

-                    {

-                        foreach (bool l4 in exprtl0_atom(Atom.a(@"{}"), Term, Precedence, Answer, S, S1))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                object S1 = arg6;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"brace"), Atom.a(@"{"), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable S1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))

-                {

-                    foreach (bool l3 in YP.unify(arg6, new ListPair(Atom.a(@"]"), S1)))

-                    {

-                        foreach (bool l4 in exprtl0_atom(Atom.NIL, Term, Precedence, Answer, S, S1))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                object S1 = arg6;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"bracket"), Atom.a(@"["), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                object S1 = arg6;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"parenthesis"), Atom.a(@"("), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                object x4 = arg5;

-                object S1 = arg6;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"parenthesis"), Atom.a(@"("), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object x4 = arg2;

-                object x5 = arg3;

-                object x6 = arg4;

-                object x7 = arg5;

-                object S1 = arg6;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable P = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", A, B, P)))

-                {

-                    foreach (bool l3 in cannot_follow(Atom.a(@"variable"), new Functor3(@"var", A, B, P), S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                object S1 = arg6;

-                Variable F = new Variable();

-                Variable P = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", F, P)))

-                {

-                    foreach (bool l3 in exprtl0_atom(new Functor2(@"/", F, P), Term, Precedence, Answer, S, S1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> exprtl0_atom(object arg1, object arg2, object arg3, object arg4, object arg5, object S1)

-        {

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable L1 = new Variable();

-                Variable O1 = new Variable();

-                Variable R1 = new Variable();

-                Variable L2 = new Variable();

-                Variable O2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))

-                {

-                    foreach (bool l3 in ambigop(F, Precedence, L1, O1, R1, L2, O2))

-                    {

-                        foreach (bool l4 in prefix_is_atom(S1, Precedence))

-                        {

-                            foreach (bool l5 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))

-                            {

-                                yield return false;

-                            }

-                            yield break;

-                        }

-                        foreach (bool l4 in exprtl(new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L1, O1, R1 }), S1), 0, Term, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                        foreach (bool l4 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable L1 = new Variable();

-                Variable O1 = new Variable();

-                Variable R1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))

-                {

-                    foreach (bool l3 in infixop(F, L1, O1, R1))

-                    {

-                        foreach (bool l4 in exprtl(new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L1, O1, R1 }), S1), 0, Term, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Term = arg2;

-                object Precedence = arg3;

-                object Answer = arg4;

-                object S = arg5;

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable L2 = new Variable();

-                Variable O2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))

-                {

-                    foreach (bool l3 in postfixop(F, L2, O2))

-                    {

-                        foreach (bool l4 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object X = arg1;

-                object x2 = arg2;

-                object x3 = arg3;

-                object x4 = arg4;

-                object x5 = arg5;

-                Variable x7 = new Variable();

-                foreach (bool l2 in syntax_error(new ListPair(new Functor2(@"-", Atom.a(@"non"), Atom.a(@"operator")), new ListPair(X, new ListPair(Atom.a(@"follows"), new ListPair(Atom.a(@"expression"), Atom.NIL)))), new ListPair(new Functor2(@"atom", X, x7), S1)))

-                {

-                    yield return false;

-                }

-                yield break;

-            }

-        }

-

-        public static IEnumerable<bool> cannot_follow(object Type, object Token, object Tokens)

-        {

-            {

-                foreach (bool l2 in syntax_error(new ListPair(Type, new ListPair(Atom.a(@"follows"), new ListPair(Atom.a(@"expression"), Atom.NIL))), new ListPair(Token, Tokens)))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> exprtl(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)

-        {

-            {

-                object x1 = arg2;

-                object x3 = arg4;

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg3, Term))

-                    {

-                        foreach (bool l4 in YP.unify(arg5, Term))

-                        {

-                            foreach (bool l5 in YP.unify(arg6, Atom.NIL))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object C = arg2;

-                object Term = arg3;

-                object Precedence = arg4;

-                object Answer = arg5;

-                object S = arg6;

-                Variable Token = new Variable();

-                Variable Tokens = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, Tokens)))

-                {

-                    foreach (bool l3 in exprtl_7(Token, C, Term, Precedence, Answer, S, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> exprtl_7(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6, object arg7)

-        {

-            {

-                object C = arg2;

-                object Term = arg3;

-                object Precedence = arg4;

-                object Answer = arg5;

-                object S = arg6;

-                object S1 = arg7;

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable L = new Variable();

-                Variable O = new Variable();

-                Variable R = new Variable();

-                Variable Other = new Variable();

-                Variable S2 = new Variable();

-                Variable Expr = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L, O, R })))

-                {

-                    if (YP.greaterThanOrEqual(Precedence, O))

-                    {

-                        if (YP.lessThanOrEqual(C, L))

-                        {

-                            foreach (bool l5 in parse(S1, R, Other, S2))

-                            {

-                                foreach (bool l6 in YP.univ(Expr, new ListPair(F, new ListPair(Pos, new ListPair(Term, new ListPair(Other, Atom.NIL))))))

-                                {

-                                    foreach (bool l7 in exprtl(S2, O, Expr, Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object C = arg2;

-                object Term = arg3;

-                object Precedence = arg4;

-                object Answer = arg5;

-                object S = arg6;

-                object S1 = arg7;

-                Variable F = new Variable();

-                Variable Pos = new Variable();

-                Variable L = new Variable();

-                Variable O = new Variable();

-                Variable Expr = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L, O)))

-                {

-                    if (YP.greaterThanOrEqual(Precedence, O))

-                    {

-                        if (YP.lessThanOrEqual(C, L))

-                        {

-                            foreach (bool l5 in YP.univ(Expr, new ListPair(F, new ListPair(Pos, new ListPair(Term, Atom.NIL)))))

-                            {

-                                foreach (bool l6 in peepop(S1, S2))

-                                {

-                                    foreach (bool l7 in exprtl(S2, O, Expr, Precedence, Answer, S))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object C = arg2;

-                object Term = arg3;

-                object Precedence = arg4;

-                object Answer = arg5;

-                object S = arg6;

-                object S1 = arg7;

-                Variable Next = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))

-                {

-                    if (YP.greaterThanOrEqual(Precedence, 1000))

-                    {

-                        if (YP.lessThan(C, 1000))

-                        {

-                            foreach (bool l5 in parse(S1, 1000, Next, S2))

-                            {

-                                foreach (bool l6 in exprtl(S2, 1000, new Functor2(@",", Term, Next), Precedence, Answer, S))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object C = arg2;

-                object Term = arg3;

-                object Precedence = arg4;

-                object Answer = arg5;

-                object S = arg6;

-                object S1 = arg7;

-                Variable Next = new Variable();

-                Variable S2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))

-                {

-                    if (YP.greaterThanOrEqual(Precedence, 1100))

-                    {

-                        if (YP.lessThan(C, 1100))

-                        {

-                            foreach (bool l5 in parse(S1, 1100, Next, S2))

-                            {

-                                foreach (bool l6 in exprtl(S2, 1100, new Functor2(@";", Term, Next), Precedence, Answer, S))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object Token = arg1;

-                object x2 = arg2;

-                object x4 = arg4;

-                object Tokens = arg7;

-                Variable Term = new Variable();

-                foreach (bool l2 in YP.unify(arg3, Term))

-                {

-                    foreach (bool l3 in YP.unify(arg5, Term))

-                    {

-                        foreach (bool l4 in YP.unify(arg6, new ListPair(Token, Tokens)))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> syntax_error(object _Message, object _List)

-        {

-            {

-                yield break;

-            }

-        }

-

-        public static IEnumerable<bool> syntax_error(object _List)

-        {

-            {

-                yield break;

-            }

-        }

-

-        public static IEnumerable<bool> prefixop(object F, object O, object Q)

-        {

-            {

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"fx"), F))

-                {

-                    foreach (bool l3 in YP.unify(Q, YP.subtract(O, 1)))

-                    {

-                        yield return false;

-                    }

-                    goto cutIf1;

-                }

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"fy"), F))

-                {

-                    foreach (bool l3 in YP.unify(Q, O))

-                    {

-                        yield return false;

-                    }

-                    goto cutIf2;

-                }

-            cutIf2:

-            cutIf1:

-                { }

-            }

-        }

-

-        public static IEnumerable<bool> postfixop(object F, object P, object O)

-        {

-            {

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"xf"), F))

-                {

-                    foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))

-                    {

-                        yield return false;

-                    }

-                    goto cutIf1;

-                }

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"yf"), F))

-                {

-                    foreach (bool l3 in YP.unify(P, O))

-                    {

-                        yield return false;

-                    }

-                    goto cutIf2;

-                }

-            cutIf2:

-            cutIf1:

-                { }

-            }

-        }

-

-        public static IEnumerable<bool> infixop(object F, object P, object O, object Q)

-        {

-            {

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"xfy"), F))

-                {

-                    foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))

-                    {

-                        foreach (bool l4 in YP.unify(Q, O))

-                        {

-                            yield return false;

-                        }

-                    }

-                    goto cutIf1;

-                }

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"xfx"), F))

-                {

-                    foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))

-                    {

-                        foreach (bool l4 in YP.unify(Q, P))

-                        {

-                            yield return false;

-                        }

-                    }

-                    goto cutIf2;

-                }

-                foreach (bool l2 in YP.current_op(O, Atom.a(@"yfx"), F))

-                {

-                    foreach (bool l3 in YP.unify(Q, YP.subtract(O, 1)))

-                    {

-                        foreach (bool l4 in YP.unify(P, O))

-                        {

-                            yield return false;

-                        }

-                    }

-                    goto cutIf3;

-                }

-            cutIf3:

-            cutIf2:

-            cutIf1:

-                { }

-            }

-        }

-

-        public static IEnumerable<bool> ambigop(object F, object Precedence, object L1, object O1, object R1, object L2, object O2)

-        {

-            {

-                foreach (bool l2 in postfixop(F, L2, O2))

-                {

-                    if (YP.lessThanOrEqual(O2, Precedence))

-                    {

-                        foreach (bool l4 in infixop(F, L1, O1, R1))

-                        {

-                            if (YP.lessThanOrEqual(O1, Precedence))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_tokens1(object arg1)

-        {

-            {

-                object TokenList = arg1;

-                Variable C1 = new Variable();

-                Variable _X = new Variable();

-                Variable ListOfTokens = new Variable();

-                foreach (bool l2 in YP.get_code(C1))

-                {

-                    foreach (bool l3 in read_tokens(C1, _X, ListOfTokens))

-                    {

-                        foreach (bool l4 in YP.unify(TokenList, ListOfTokens))

-                        {

-                            yield return false;

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", Atom.a(@"end_of_file"), 0), Atom.NIL)))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_tokens2(object arg1, object arg2)

-        {

-            {

-                object TokenList = arg1;

-                object Dictionary = arg2;

-                Variable C1 = new Variable();

-                Variable Dict = new Variable();

-                Variable ListOfTokens = new Variable();

-                foreach (bool l2 in YP.get_code(C1))

-                {

-                    foreach (bool l3 in read_tokens(C1, Dict, ListOfTokens))

-                    {

-                        foreach (bool l4 in terminate_list(Dict))

-                        {

-                            foreach (bool l5 in YP.unify(Dictionary, Dict))

-                            {

-                                foreach (bool l6 in YP.unify(TokenList, ListOfTokens))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", Atom.a(@"end_of_file"), 0), Atom.NIL)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> terminate_list(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    yield return false;

-                }

-            }

-            {

-                Variable x1 = new Variable();

-                Variable Tail = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, Tail)))

-                {

-                    foreach (bool l3 in terminate_list(Tail))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_special(object arg1, object Dict, object arg3)

-        {

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 95))

-                {

-                    foreach (bool l3 in read_variable(95, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 247))

-                {

-                    foreach (bool l3 in read_symbol(247, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 215))

-                {

-                    foreach (bool l3 in read_symbol(215, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                Variable StartPos = new Variable();

-                Variable EndPos = new Variable();

-                Variable Tokens = new Variable();

-                Variable Ch = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 37))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"comment", StartPos, EndPos), Tokens)))

-                    {

-                        foreach (bool l4 in get_current_position(StartPos))

-                        {

-                            foreach (bool l5 in YP.repeat())

-                            {

-                                foreach (bool l6 in YP.get_code(Ch))

-                                {

-                                    if (YP.lessThan(Ch, new ListPair(32, Atom.NIL)))

-                                    {

-                                        if (YP.notEqual(Ch, 9))

-                                        {

-                                            if (YP.termNotEqual(Ch, -1))

-                                            {

-                                                foreach (bool l10 in get_current_position(EndPos))

-                                                {

-                                                    foreach (bool l11 in YP.get_code(NextCh))

-                                                    {

-                                                        foreach (bool l12 in read_tokens(NextCh, Dict, Tokens))

-                                                        {

-                                                            yield return false;

-                                                        }

-                                                    }

-                                                }

-                                            }

-                                            yield break;

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object T = arg3;

-                Variable C2 = new Variable();

-                Variable StartPos = new Variable();

-                Variable EndPos = new Variable();

-                Variable Tokens = new Variable();

-                Variable StartPos1 = new Variable();

-                Variable NextCh = new Variable();

-                Variable Chars = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 47))

-                {

-                    foreach (bool l3 in YP.get_code(C2))

-                    {

-                        if (YP.equal(C2, new ListPair(42, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.unify(T, new ListPair(new Functor2(@"comment", StartPos, EndPos), Tokens)))

-                            {

-                                foreach (bool l6 in get_current_position(StartPos1))

-                                {

-                                    foreach (bool l7 in YP.unify(StartPos, YP.subtract(StartPos1, 1)))

-                                    {

-                                        foreach (bool l8 in read_solidus(32, NextCh))

-                                        {

-                                            foreach (bool l9 in get_current_position(EndPos))

-                                            {

-                                                foreach (bool l10 in read_tokens(NextCh, Dict, Tokens))

-                                                {

-                                                    yield return false;

-                                                }

-                                            }

-                                        }

-                                    }

-                                }

-                            }

-                            goto cutIf1;

-                        }

-                        foreach (bool l4 in YP.unify(T, Tokens))

-                        {

-                            foreach (bool l5 in rest_symbol(C2, Chars, NextCh))

-                            {

-                                foreach (bool l6 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(47, Chars)))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                    cutIf1:

-                        { }

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 33))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom.a(@"!"), Pos), Tokens)))

-                    {

-                        foreach (bool l4 in get_current_position(Pos))

-                        {

-                            foreach (bool l5 in YP.get_code(NextCh))

-                            {

-                                foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 40))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@" ("), Tokens)))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 41))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@")"), Tokens)))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 44))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@","), Tokens)))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 59))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom.a(@";"), Pos), Tokens)))

-                    {

-                        foreach (bool l4 in get_current_position(Pos))

-                        {

-                            foreach (bool l5 in YP.get_code(NextCh))

-                            {

-                                foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 91))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"["), Pos), Tokens)))

-                    {

-                        foreach (bool l4 in get_current_position(Pos))

-                        {

-                            foreach (bool l5 in YP.get_code(NextCh))

-                            {

-                                foreach (bool l6 in read_tokens(NextCh, Dict, Tokens))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 93))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"]"), Pos), Tokens)))

-                    {

-                        foreach (bool l4 in get_current_position(Pos))

-                        {

-                            foreach (bool l5 in YP.get_code(NextCh))

-                            {

-                                foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Pos = new Variable();

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 123))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"{"), Pos), Tokens)))

-                    {

-                        foreach (bool l4 in get_current_position(Pos))

-                        {

-                            foreach (bool l5 in YP.get_code(NextCh))

-                            {

-                                foreach (bool l6 in read_tokens(NextCh, Dict, Tokens))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 124))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"|"), Tokens)))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 125))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"}"), Tokens)))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in read_after_atom(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 46))

-                {

-                    foreach (bool l3 in YP.get_code(NextCh))

-                    {

-                        foreach (bool l4 in read_fullstop(NextCh, Dict, Tokens))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                Variable Chars = new Variable();

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 34))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"string", Chars), Tokens)))

-                    {

-                        foreach (bool l4 in read_string(Chars, 34, NextCh))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                Variable Chars = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 39))

-                {

-                    foreach (bool l3 in read_string(Chars, 39, NextCh))

-                    {

-                        foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, Chars))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 35))

-                {

-                    foreach (bool l3 in read_symbol(35, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 36))

-                {

-                    foreach (bool l3 in read_symbol(36, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 38))

-                {

-                    foreach (bool l3 in read_symbol(38, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 42))

-                {

-                    foreach (bool l3 in read_symbol(42, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 43))

-                {

-                    foreach (bool l3 in read_symbol(43, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 45))

-                {

-                    foreach (bool l3 in read_symbol(45, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 58))

-                {

-                    foreach (bool l3 in read_symbol(58, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 60))

-                {

-                    foreach (bool l3 in read_symbol(60, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 61))

-                {

-                    foreach (bool l3 in read_symbol(61, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 62))

-                {

-                    foreach (bool l3 in read_symbol(62, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 63))

-                {

-                    foreach (bool l3 in read_symbol(63, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 64))

-                {

-                    foreach (bool l3 in read_symbol(64, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 92))

-                {

-                    foreach (bool l3 in read_symbol(92, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 94))

-                {

-                    foreach (bool l3 in read_symbol(94, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 96))

-                {

-                    foreach (bool l3 in read_symbol(96, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Tokens = arg3;

-                foreach (bool l2 in YP.unify(arg1, 126))

-                {

-                    foreach (bool l3 in read_symbol(126, Dict, Tokens))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_symbol(object C1, object Dict, object Tokens)

-        {

-            {

-                Variable C2 = new Variable();

-                Variable Chars = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.get_code(C2))

-                {

-                    foreach (bool l3 in rest_symbol(C2, Chars, NextCh))

-                    {

-                        foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(C1, Chars)))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> rest_symbol(object arg1, object arg2, object arg3)

-        {

-            {

-                object C2 = arg1;

-                object LastCh = arg3;

-                Variable Chars = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(C2, Chars)))

-                {

-                    if (YP.greaterThan(C2, 160))

-                    {

-                        if (YP.lessThan(C2, 192))

-                        {

-                            if (YP.notEqual(C2, 186))

-                            {

-                                if (YP.notEqual(C2, 170))

-                                {

-                                    foreach (bool l7 in YP.get_code(NextCh))

-                                    {

-                                        foreach (bool l8 in rest_symbol(NextCh, Chars, LastCh))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    yield break;

-                                }

-                            }

-                        }

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in symbol_char(C2))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in rest_symbol(NextCh, Chars, LastCh))

-                            {

-                                yield return false;

-                            }

-                        }

-                        yield break;

-                    }

-                cutIf1:

-                    { }

-                }

-            }

-            {

-                Variable C2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, C2))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, C2))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> symbol_char(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, 35))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 36))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 38))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 42))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 43))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 45))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 46))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 47))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 58))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 60))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 61))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 62))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 63))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 64))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 92))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 94))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 96))

-                {

-                    yield return false;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 126))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> get_current_position(object Pos)

-        {

-            {

-                foreach (bool l2 in YP.unify(Pos, 0))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_after_atom4(object Ch, object Dict, object arg3, object Chars)

-        {

-            {

-                Variable Atom_1 = new Variable();

-                Variable Pos = new Variable();

-                Variable Tokens = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom_1, Pos), Tokens)))

-                {

-                    foreach (bool l3 in YP.unify(Pos, 0))

-                    {

-                        foreach (bool l4 in YP.atom_codes(Atom_1, Chars))

-                        {

-                            foreach (bool l5 in read_after_atom(Ch, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_after_atom(object arg1, object Dict, object arg3)

-        {

-            {

-                Variable Tokens = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, 40))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"("), Tokens)))

-                    {

-                        foreach (bool l4 in YP.get_code(NextCh))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Ch = arg1;

-                object Tokens = arg3;

-                foreach (bool l2 in read_tokens(Ch, Dict, Tokens))

-                {

-                    yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_string(object Chars, object Quote, object NextCh)

-        {

-            {

-                Variable Ch = new Variable();

-                Variable Char = new Variable();

-                Variable Next = new Variable();

-                foreach (bool l2 in YP.get_code(Ch))

-                {

-                    foreach (bool l3 in read_char(Ch, Quote, Char, Next))

-                    {

-                        foreach (bool l4 in rest_string5(Char, Next, Chars, Quote, NextCh))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> rest_string5(object arg1, object arg2, object arg3, object arg4, object arg5)

-        {

-            {

-                object _X = arg4;

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg1, -1))

-                {

-                    foreach (bool l3 in YP.unify(arg2, NextCh))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))

-                        {

-                            foreach (bool l5 in YP.unify(arg5, NextCh))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Char = arg1;

-                object Next = arg2;

-                object Quote = arg4;

-                object NextCh = arg5;

-                Variable Chars = new Variable();

-                Variable Char2 = new Variable();

-                Variable Next2 = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new ListPair(Char, Chars)))

-                {

-                    foreach (bool l3 in read_char(Next, Quote, Char2, Next2))

-                    {

-                        foreach (bool l4 in rest_string5(Char2, Next2, Chars, Quote, NextCh))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> escape_char(object arg1, object arg2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, 110))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 10))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 78))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 10))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 116))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 9))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 84))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 9))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 114))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 13))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 82))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 13))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 118))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 11))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 86))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 11))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 98))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 8))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 66))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 8))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 102))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 12))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 70))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 12))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 101))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 27))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 69))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 27))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 100))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 127))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 68))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 127))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 115))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 32))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 83))

-                {

-                    foreach (bool l3 in YP.unify(arg2, 32))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 122))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, 90))

-                {

-                    foreach (bool l3 in YP.unify(arg2, -1))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_variable(object C1, object Dict, object arg3)

-        {

-            {

-                Variable Var = new Variable();

-                Variable Name = new Variable();

-                Variable StartPos = new Variable();

-                Variable Tokens = new Variable();

-                Variable Chars = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor3(@"var", Var, Name, StartPos), Tokens)))

-                {

-                    foreach (bool l3 in get_current_position(StartPos))

-                    {

-                        foreach (bool l4 in read_name(C1, Chars, NextCh))

-                        {

-                            foreach (bool l5 in YP.atom_codes(Name, Chars))

-                            {

-                                if (YP.termEqual(Name, Atom.a(@"_")))

-                                {

-                                    foreach (bool l7 in read_after_atom(NextCh, Dict, Tokens))

-                                    {

-                                        yield return false;

-                                    }

-                                    goto cutIf1;

-                                }

-                                foreach (bool l6 in read_lookup(Dict, Name, Var))

-                                {

-                                    foreach (bool l7 in read_after_atom(NextCh, Dict, Tokens))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            cutIf1:

-                                { }

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_lookup(object arg1, object Name, object Var)

-        {

-            {

-                Variable N = new Variable();

-                Variable V = new Variable();

-                Variable L = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", N, V), L)))

-                {

-                    foreach (bool l3 in YP.unify(N, Name))

-                    {

-                        foreach (bool l4 in YP.unify(V, Var))

-                        {

-                            yield return false;

-                        }

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in read_lookup(L, Name, Var))

-                    {

-                        yield return false;

-                    }

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_solidus(object Ch, object LastCh)

-        {

-            {

-                Variable NextCh = new Variable();

-                if (YP.equal(Ch, 42))

-                {

-                    foreach (bool l3 in YP.get_code(NextCh))

-                    {

-                        if (YP.equal(NextCh, 47))

-                        {

-                            foreach (bool l5 in YP.get_code(LastCh))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf2;

-                        }

-                        foreach (bool l4 in read_solidus(NextCh, LastCh))

-                        {

-                            yield return false;

-                        }

-                    cutIf2:

-                        { }

-                    }

-                    goto cutIf1;

-                }

-                if (YP.notEqual(Ch, -1))

-                {

-                    foreach (bool l3 in YP.get_code(NextCh))

-                    {

-                        foreach (bool l4 in read_solidus(NextCh, LastCh))

-                        {

-                            yield return false;

-                        }

-                    }

-                    goto cutIf3;

-                }

-                foreach (bool l2 in YP.unify(LastCh, Ch))

-                {

-                    foreach (bool l3 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in /*comment~n"), Atom.NIL))

-                    {

-                        yield return false;

-                    }

-                }

-            cutIf3:

-            cutIf1:

-                { }

-            }

-        }

-

-        public static IEnumerable<bool> read_identifier(object C1, object Dict, object Tokens)

-        {

-            {

-                Variable Chars = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in read_name(C1, Chars, NextCh))

-                {

-                    foreach (bool l3 in read_after_atom4(NextCh, Dict, Tokens, Chars))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_name(object C1, object arg2, object LastCh)

-        {

-            {

-                Variable Chars = new Variable();

-                Variable C2 = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))

-                {

-                    foreach (bool l3 in YP.get_code(C2))

-                    {

-                        if (YP.greaterThanOrEqual(C2, new ListPair(97, Atom.NIL)))

-                        {

-                            if (YP.lessThanOrEqual(C2, new ListPair(122, Atom.NIL)))

-                            {

-                                foreach (bool l6 in read_name(C2, Chars, LastCh))

-                                {

-                                    yield return false;

-                                }

-                                goto cutIf2;

-                            }

-                            if (YP.lessThan(C2, 192))

-                            {

-                                if (YP.notEqual(YP.bitwiseOr(C2, 16), 186))

-                                {

-                                    foreach (bool l7 in YP.unify(Chars, Atom.NIL))

-                                    {

-                                        foreach (bool l8 in YP.unify(LastCh, C2))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf3;

-                                }

-                            }

-                            if (YP.equal(YP.bitwiseOr(C2, 32), 247))

-                            {

-                                foreach (bool l6 in YP.unify(Chars, Atom.NIL))

-                                {

-                                    foreach (bool l7 in YP.unify(LastCh, C2))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                                goto cutIf4;

-                            }

-                            foreach (bool l5 in read_name(C2, Chars, LastCh))

-                            {

-                                yield return false;

-                            }

-                        cutIf4:

-                        cutIf3:

-                        cutIf2:

-                            goto cutIf1;

-                        }

-                        if (YP.greaterThanOrEqual(C2, new ListPair(65, Atom.NIL)))

-                        {

-                            if (YP.greaterThan(C2, new ListPair(90, Atom.NIL)))

-                            {

-                                if (YP.notEqual(C2, new ListPair(95, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in YP.unify(Chars, Atom.NIL))

-                                    {

-                                        foreach (bool l8 in YP.unify(LastCh, C2))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf6;

-                                }

-                            }

-                            foreach (bool l5 in read_name(C2, Chars, LastCh))

-                            {

-                                yield return false;

-                            }

-                        cutIf6:

-                            goto cutIf5;

-                        }

-                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))

-                        {

-                            if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))

-                            {

-                                foreach (bool l6 in read_name(C2, Chars, LastCh))

-                                {

-                                    yield return false;

-                                }

-                                goto cutIf7;

-                            }

-                        }

-                        foreach (bool l4 in YP.unify(Chars, Atom.NIL))

-                        {

-                            foreach (bool l5 in YP.unify(LastCh, C2))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf7:

-                    cutIf5:

-                    cutIf1:

-                        { }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_fullstop(object Ch, object Dict, object Tokens)

-        {

-            {

-                Variable Number = new Variable();

-                Variable Tokens1 = new Variable();

-                Variable Chars = new Variable();

-                Variable NextCh = new Variable();

-                if (YP.lessThanOrEqual(Ch, new ListPair(57, Atom.NIL)))

-                {

-                    if (YP.greaterThanOrEqual(Ch, new ListPair(48, Atom.NIL)))

-                    {

-                        foreach (bool l4 in YP.unify(Tokens, new ListPair(new Functor1(@"number", Number), Tokens1)))

-                        {

-                            foreach (bool l5 in read_float(Number, Dict, Tokens1, new ListPair(48, Atom.NIL), Ch))

-                            {

-                                yield return false;

-                            }

-                        }

-                        goto cutIf1;

-                    }

-                }

-                if (YP.greaterThan(Ch, new ListPair(32, Atom.NIL)))

-                {

-                    foreach (bool l3 in rest_symbol(Ch, Chars, NextCh))

-                    {

-                        foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(46, Chars)))

-                        {

-                            yield return false;

-                        }

-                    }

-                    goto cutIf2;

-                }

-                if (YP.greaterThanOrEqual(Ch, 0))

-                {

-                    foreach (bool l3 in YP.unify(Tokens, Atom.NIL))

-                    {

-                        yield return false;

-                    }

-                    goto cutIf3;

-                }

-                foreach (bool l2 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file just after full stop~n"), Atom.NIL))

-                {

-                }

-            cutIf3:

-            cutIf2:

-            cutIf1:

-                { }

-            }

-        }

-

-        public static IEnumerable<bool> read_float(object Number, object Dict, object Tokens, object Digits, object Digit)

-        {

-            {

-                Variable Chars = new Variable();

-                Variable Rest = new Variable();

-                Variable NextCh = new Variable();

-                foreach (bool l2 in prepend(Digits, Chars, Rest))

-                {

-                    foreach (bool l3 in read_float(Digit, Rest, NextCh, Chars))

-                    {

-                        foreach (bool l4 in YP.number_codes(Number, Chars))

-                        {

-                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> prepend(object arg1, object arg2, object arg3)

-        {

-            {

-                object X = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(46, X)))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-            {

-                object Y = arg3;

-                Variable C = new Variable();

-                Variable Cs = new Variable();

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(C, Cs)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(C, X)))

-                    {

-                        foreach (bool l4 in prepend(Cs, X, Y))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_float(object C1, object arg2, object NextCh, object Total)

-        {

-            {

-                Variable Chars = new Variable();

-                Variable C2 = new Variable();

-                Variable C3 = new Variable();

-                Variable C4 = new Variable();

-                Variable More = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))

-                {

-                    foreach (bool l3 in YP.get_code(C2))

-                    {

-                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))

-                        {

-                            if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))

-                            {

-                                foreach (bool l6 in read_float(C2, Chars, NextCh, Total))

-                                {

-                                    yield return false;

-                                }

-                                goto cutIf1;

-                            }

-                        }

-                        if (YP.equal(YP.bitwiseOr(C2, 32), new ListPair(101, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.get_code(C3))

-                            {

-                                if (YP.equal(C3, new ListPair(45, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in YP.get_code(C4))

-                                    {

-                                        foreach (bool l8 in YP.unify(Chars, new ListPair(C2, new ListPair(45, More))))

-                                        {

-                                            if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))

-                                            {

-                                                if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))

-                                                {

-                                                    foreach (bool l11 in read_exponent(C4, More, NextCh))

-                                                    {

-                                                        yield return false;

-                                                    }

-                                                    goto cutIf4;

-                                                }

-                                            }

-                                            foreach (bool l9 in YP.unify(More, Atom.NIL))

-                                            {

-                                                foreach (bool l10 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))

-                                                {

-                                                }

-                                            }

-                                            foreach (bool l9 in YP.unify(More, new ListPair(48, Atom.NIL)))

-                                            {

-                                                foreach (bool l10 in YP.unify(NextCh, C4))

-                                                {

-                                                    yield return false;

-                                                }

-                                            }

-                                        cutIf4:

-                                            { }

-                                        }

-                                    }

-                                    goto cutIf3;

-                                }

-                                if (YP.equal(C3, new ListPair(43, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in YP.get_code(C4))

-                                    {

-                                        foreach (bool l8 in YP.unify(Chars, new ListPair(C2, More)))

-                                        {

-                                            if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))

-                                            {

-                                                if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))

-                                                {

-                                                    foreach (bool l11 in read_exponent(C4, More, NextCh))

-                                                    {

-                                                        yield return false;

-                                                    }

-                                                    goto cutIf6;

-                                                }

-                                            }

-                                            foreach (bool l9 in YP.unify(More, Atom.NIL))

-                                            {

-                                                foreach (bool l10 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))

-                                                {

-                                                }

-                                            }

-                                            foreach (bool l9 in YP.unify(More, new ListPair(48, Atom.NIL)))

-                                            {

-                                                foreach (bool l10 in YP.unify(NextCh, C4))

-                                                {

-                                                    yield return false;

-                                                }

-                                            }

-                                        cutIf6:

-                                            { }

-                                        }

-                                    }

-                                    goto cutIf5;

-                                }

-                                foreach (bool l6 in YP.unify(C4, C3))

-                                {

-                                    foreach (bool l7 in YP.unify(Chars, new ListPair(C2, More)))

-                                    {

-                                        if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))

-                                        {

-                                            if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))

-                                            {

-                                                foreach (bool l10 in read_exponent(C4, More, NextCh))

-                                                {

-                                                    yield return false;

-                                                }

-                                                goto cutIf7;

-                                            }

-                                        }

-                                        foreach (bool l8 in YP.unify(More, Atom.NIL))

-                                        {

-                                            foreach (bool l9 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))

-                                            {

-                                            }

-                                        }

-                                        foreach (bool l8 in YP.unify(More, new ListPair(48, Atom.NIL)))

-                                        {

-                                            foreach (bool l9 in YP.unify(NextCh, C4))

-                                            {

-                                                yield return false;

-                                            }

-                                        }

-                                    cutIf7:

-                                        { }

-                                    }

-                                }

-                            cutIf5:

-                            cutIf3:

-                                { }

-                            }

-                            goto cutIf2;

-                        }

-                        foreach (bool l4 in YP.unify(Chars, Atom.NIL))

-                        {

-                            foreach (bool l5 in YP.unify(NextCh, C2))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf2:

-                    cutIf1:

-                        { }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_exponent(object C1, object arg2, object NextCh)

-        {

-            {

-                Variable Chars = new Variable();

-                Variable C2 = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))

-                {

-                    foreach (bool l3 in YP.get_code(C2))

-                    {

-                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))

-                        {

-                            if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))

-                            {

-                                foreach (bool l6 in read_exponent(C2, Chars, NextCh))

-                                {

-                                    yield return false;

-                                }

-                                goto cutIf1;

-                            }

-                        }

-                        foreach (bool l4 in YP.unify(Chars, Atom.NIL))

-                        {

-                            foreach (bool l5 in YP.unify(NextCh, C2))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf1:

-                        { }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_number(object C1, object Dict, object arg3)

-        {

-            {

-                Variable Number = new Variable();

-                Variable Tokens = new Variable();

-                Variable C2 = new Variable();

-                Variable N = new Variable();

-                Variable C = new Variable();

-                Variable C3 = new Variable();

-                Variable Digits = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor1(@"number", Number), Tokens)))

-                {

-                    foreach (bool l3 in read_number4(C1, C2, 0, N))

-                    {

-                        if (YP.equal(C2, 39))

-                        {

-                            if (YP.greaterThanOrEqual(N, 2))

-                            {

-                                if (YP.lessThanOrEqual(N, 36))

-                                {

-                                    foreach (bool l7 in read_based(N, 0, Number, C))

-                                    {

-                                        foreach (bool l8 in read_tokens(C, Dict, Tokens))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf2;

-                                }

-                            }

-                            if (YP.equal(N, 0))

-                            {

-                                foreach (bool l6 in YP.get_code(C3))

-                                {

-                                    foreach (bool l7 in read_char(C3, -1, Number, C))

-                                    {

-                                        foreach (bool l8 in read_tokens(C, Dict, Tokens))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                }

-                                goto cutIf3;

-                            }

-                            foreach (bool l5 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** ~d' read as ~d '~n"), new ListPair(N, new ListPair(N, Atom.NIL))))

-                            {

-                                foreach (bool l6 in YP.unify(Number, N))

-                                {

-                                    foreach (bool l7 in YP.unify(C, C2))

-                                    {

-                                        foreach (bool l8 in read_tokens(C, Dict, Tokens))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                }

-                            }

-                        cutIf3:

-                        cutIf2:

-                            goto cutIf1;

-                        }

-                        if (YP.equal(C2, 46))

-                        {

-                            foreach (bool l5 in YP.get_code(C3))

-                            {

-                                if (YP.greaterThanOrEqual(C3, new ListPair(48, Atom.NIL)))

-                                {

-                                    if (YP.lessThanOrEqual(C3, new ListPair(57, Atom.NIL)))

-                                    {

-                                        foreach (bool l8 in YP.number_codes(N, Digits))

-                                        {

-                                            foreach (bool l9 in read_float(Number, Dict, Tokens, Digits, C3))

-                                            {

-                                                yield return false;

-                                            }

-                                        }

-                                        goto cutIf5;

-                                    }

-                                }

-                                foreach (bool l6 in YP.unify(Number, N))

-                                {

-                                    foreach (bool l7 in read_fullstop(C3, Dict, Tokens))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            cutIf5:

-                                { }

-                            }

-                            goto cutIf4;

-                        }

-                        foreach (bool l4 in YP.unify(Number, N))

-                        {

-                            foreach (bool l5 in read_tokens(C2, Dict, Tokens))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf4:

-                    cutIf1:

-                        { }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_number4(object C0, object C, object N0, object N)

-        {

-            {

-                Variable N1 = new Variable();

-                Variable C1 = new Variable();

-                if (YP.greaterThanOrEqual(C0, new ListPair(48, Atom.NIL)))

-                {

-                    if (YP.lessThanOrEqual(C0, new ListPair(57, Atom.NIL)))

-                    {

-                        foreach (bool l4 in YP.unify(N1, YP.add(YP.subtract(YP.multiply(N0, 10), new ListPair(48, Atom.NIL)), C0)))

-                        {

-                            foreach (bool l5 in YP.get_code(C1))

-                            {

-                                foreach (bool l6 in read_number4(C1, C, N1, N))

-                                {

-                                    yield return false;

-                                }

-                            }

-                        }

-                        goto cutIf1;

-                    }

-                }

-                if (YP.equal(C0, 95))

-                {

-                    foreach (bool l3 in YP.get_code(C1))

-                    {

-                        foreach (bool l4 in read_number4(C1, C, N0, N))

-                        {

-                            yield return false;

-                        }

-                    }

-                    goto cutIf2;

-                }

-                foreach (bool l2 in YP.unify(C, C0))

-                {

-                    foreach (bool l3 in YP.unify(N, N0))

-                    {

-                        yield return false;

-                    }

-                }

-            cutIf2:

-            cutIf1:

-                { }

-            }

-        }

-

-        public static IEnumerable<bool> read_based(object Base, object N0, object N, object C)

-        {

-            {

-                Variable C1 = new Variable();

-                Variable Digit = new Variable();

-                Variable N1 = new Variable();

-                foreach (bool l2 in YP.get_code(C1))

-                {

-                    if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))

-                    {

-                        if (YP.lessThanOrEqual(C1, new ListPair(57, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, new ListPair(48, Atom.NIL))))

-                            {

-                                if (YP.lessThan(Digit, Base))

-                                {

-                                    foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))

-                                    {

-                                        foreach (bool l8 in read_based(Base, N1, N, C))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf2;

-                                }

-                                if (YP.equal(C1, new ListPair(95, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in read_based(Base, N0, N, C))

-                                    {

-                                        yield return false;

-                                    }

-                                    goto cutIf3;

-                                }

-                                foreach (bool l6 in YP.unify(N, N0))

-                                {

-                                    foreach (bool l7 in YP.unify(C, C1))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            cutIf3:

-                            cutIf2:

-                                { }

-                            }

-                            goto cutIf1;

-                        }

-                    }

-                    if (YP.greaterThanOrEqual(C1, new ListPair(65, Atom.NIL)))

-                    {

-                        if (YP.lessThanOrEqual(C1, new ListPair(90, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, YP.subtract(new ListPair(65, Atom.NIL), 10))))

-                            {

-                                if (YP.lessThan(Digit, Base))

-                                {

-                                    foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))

-                                    {

-                                        foreach (bool l8 in read_based(Base, N1, N, C))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf5;

-                                }

-                                if (YP.equal(C1, new ListPair(95, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in read_based(Base, N0, N, C))

-                                    {

-                                        yield return false;

-                                    }

-                                    goto cutIf6;

-                                }

-                                foreach (bool l6 in YP.unify(N, N0))

-                                {

-                                    foreach (bool l7 in YP.unify(C, C1))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            cutIf6:

-                            cutIf5:

-                                { }

-                            }

-                            goto cutIf4;

-                        }

-                    }

-                    if (YP.greaterThanOrEqual(C1, new ListPair(97, Atom.NIL)))

-                    {

-                        if (YP.lessThanOrEqual(C1, new ListPair(122, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, YP.subtract(new ListPair(97, Atom.NIL), 10))))

-                            {

-                                if (YP.lessThan(Digit, Base))

-                                {

-                                    foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))

-                                    {

-                                        foreach (bool l8 in read_based(Base, N1, N, C))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf8;

-                                }

-                                if (YP.equal(C1, new ListPair(95, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in read_based(Base, N0, N, C))

-                                    {

-                                        yield return false;

-                                    }

-                                    goto cutIf9;

-                                }

-                                foreach (bool l6 in YP.unify(N, N0))

-                                {

-                                    foreach (bool l7 in YP.unify(C, C1))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            cutIf9:

-                            cutIf8:

-                                { }

-                            }

-                            goto cutIf7;

-                        }

-                    }

-                    foreach (bool l3 in YP.unify(Digit, 99))

-                    {

-                        if (YP.lessThan(Digit, Base))

-                        {

-                            foreach (bool l5 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))

-                            {

-                                foreach (bool l6 in read_based(Base, N1, N, C))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            goto cutIf10;

-                        }

-                        if (YP.equal(C1, new ListPair(95, Atom.NIL)))

-                        {

-                            foreach (bool l5 in read_based(Base, N0, N, C))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf11;

-                        }

-                        foreach (bool l4 in YP.unify(N, N0))

-                        {

-                            foreach (bool l5 in YP.unify(C, C1))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf11:

-                    cutIf10:

-                        { }

-                    }

-                cutIf7:

-                cutIf4:

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> read_char(object Char, object Quote, object Result, object Next)

-        {

-            {

-                Variable C1 = new Variable();

-                Variable C2 = new Variable();

-                Variable C3 = new Variable();

-                Variable Ch = new Variable();

-                if (YP.equal(Char, 92))

-                {

-                    foreach (bool l3 in YP.get_code(C1))

-                    {

-                        if (YP.lessThan(C1, 0))

-                        {

-                            foreach (bool l5 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in ~cquoted~c~n"), new ListPair(Quote, new ListPair(Quote, Atom.NIL))))

-                            {

-                                foreach (bool l6 in YP.unify(Result, -1))

-                                {

-                                    foreach (bool l7 in YP.unify(Next, C1))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            }

-                            goto cutIf2;

-                        }

-                        if (YP.lessThanOrEqual(C1, new ListPair(32, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.get_code(C2))

-                            {

-                                foreach (bool l6 in read_char(C2, Quote, Result, Next))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            goto cutIf3;

-                        }

-                        if (YP.equal(YP.bitwiseOr(C1, 32), new ListPair(99, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.get_code(C2))

-                            {

-                                foreach (bool l6 in read_char(C2, Quote, Result, Next))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            goto cutIf4;

-                        }

-                        if (YP.lessThanOrEqual(C1, new ListPair(55, Atom.NIL)))

-                        {

-                            if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))

-                            {

-                                foreach (bool l6 in YP.get_code(C2))

-                                {

-                                    if (YP.lessThanOrEqual(C2, new ListPair(55, Atom.NIL)))

-                                    {

-                                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))

-                                        {

-                                            foreach (bool l9 in YP.get_code(C3))

-                                            {

-                                                if (YP.lessThanOrEqual(C3, new ListPair(55, Atom.NIL)))

-                                                {

-                                                    if (YP.greaterThanOrEqual(C3, new ListPair(48, Atom.NIL)))

-                                                    {

-                                                        foreach (bool l12 in YP.get_code(Next))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(Result, YP.subtract(YP.add(YP.multiply(YP.add(YP.multiply(C1, 8), C2), 8), C3), YP.multiply(73, new ListPair(48, Atom.NIL)))))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                        goto cutIf7;

-                                                    }

-                                                }

-                                                foreach (bool l10 in YP.unify(Next, C3))

-                                                {

-                                                    foreach (bool l11 in YP.unify(Result, YP.subtract(YP.add(YP.multiply(C1, 8), C2), YP.multiply(9, new ListPair(48, Atom.NIL)))))

-                                                    {

-                                                        yield return false;

-                                                    }

-                                                }

-                                            cutIf7:

-                                                { }

-                                            }

-                                            goto cutIf6;

-                                        }

-                                    }

-                                    foreach (bool l7 in YP.unify(Next, C2))

-                                    {

-                                        foreach (bool l8 in YP.unify(Result, YP.subtract(C1, new ListPair(48, Atom.NIL))))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                cutIf6:

-                                    { }

-                                }

-                                goto cutIf5;

-                            }

-                        }

-                        if (YP.equal(C1, new ListPair(94, Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.get_code(C2))

-                            {

-                                if (YP.lessThan(C2, 0))

-                                {

-                                    foreach (bool l7 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in ~c..~c^..~c~n"), new ListPair(Quote, new ListPair(92, new ListPair(Quote, Atom.NIL)))))

-                                    {

-                                        foreach (bool l8 in YP.unify(Result, -1))

-                                        {

-                                            foreach (bool l9 in YP.unify(Next, C2))

-                                            {

-                                                yield return false;

-                                            }

-                                        }

-                                    }

-                                    goto cutIf9;

-                                }

-                                if (YP.equal(C2, new ListPair(63, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in YP.unify(Result, 127))

-                                    {

-                                        foreach (bool l8 in YP.get_code(Next))

-                                        {

-                                            yield return false;

-                                        }

-                                    }

-                                    goto cutIf10;

-                                }

-                                foreach (bool l6 in YP.unify(Result, YP.bitwiseAnd(C2, 31)))

-                                {

-                                    foreach (bool l7 in YP.get_code(Next))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            cutIf10:

-                            cutIf9:

-                                { }

-                            }

-                            goto cutIf8;

-                        }

-                        foreach (bool l4 in escape_char(C1, Result))

-                        {

-                            foreach (bool l5 in YP.get_code(Next))

-                            {

-                                yield return false;

-                            }

-                            goto cutIf11;

-                        }

-                        foreach (bool l4 in YP.unify(Result, C1))

-                        {

-                            foreach (bool l5 in YP.get_code(Next))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf11:

-                    cutIf8:

-                    cutIf5:

-                    cutIf4:

-                    cutIf3:

-                    cutIf2:

-                        { }

-                    }

-                    goto cutIf1;

-                }

-                if (YP.equal(Char, Quote))

-                {

-                    foreach (bool l3 in YP.get_code(Ch))

-                    {

-                        if (YP.equal(Ch, Quote))

-                        {

-                            foreach (bool l5 in YP.unify(Result, Quote))

-                            {

-                                foreach (bool l6 in YP.get_code(Next))

-                                {

-                                    yield return false;

-                                }

-                            }

-                            goto cutIf13;

-                        }

-                        foreach (bool l4 in YP.unify(Result, -1))

-                        {

-                            foreach (bool l5 in YP.unify(Next, Ch))

-                            {

-                                yield return false;

-                            }

-                        }

-                    cutIf13:

-                        { }

-                    }

-                    goto cutIf12;

-                }

-                if (YP.lessThan(Char, new ListPair(32, Atom.NIL)))

-                {

-                    if (YP.notEqual(Char, 9))

-                    {

-                        if (YP.notEqual(Char, 10))

-                        {

-                            if (YP.notEqual(Char, 13))

-                            {

-                                foreach (bool l6 in YP.unify(Result, -1))

-                            {

-                                    foreach (bool l7 in YP.unify(Next, Char))

-                                {

-                                        foreach (bool l8 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Strange character ~d ends ~ctoken~c~n"), new ListPair(Char, new ListPair(Quote, new ListPair(Quote, Atom.NIL)))))

-                                    {

-                                        yield return false;

-                                    }

-                                }

-                            }

-                            goto cutIf14;

-                            }

-                        }

-                    }

-                }

-                foreach (bool l2 in YP.unify(Result, Char))

-                {

-                    foreach (bool l3 in YP.get_code(Next))

-                    {

-                        yield return false;

-                    }

-                }

-            cutIf14:

-            cutIf12:

-            cutIf1:

-                { }

-            }

-        }

-

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Parser
+    {
+        public static IEnumerable<bool> formatError(object Output, object Format, object Arguments)
+        {
+            // Debug: Simple implementation for now.
+            YP.write(Format);
+            YP.write(Arguments);
+            YP.nl();
+            yield return false;
+        }
+
+        // Debug: Hand-modify this central predicate to do tail recursion.
+        public static IEnumerable<bool> read_tokens(object arg1, object arg2, object arg3)
+        {
+            bool repeat = true;
+            while (repeat)
+            {
+                repeat = false;
+                {
+                    object C1 = arg1;
+                    object Dict = arg2;
+                    object Tokens = arg3;
+                    Variable C2 = new Variable();
+                    if (YP.lessThanOrEqual(C1, new ListPair(32, Atom.NIL)))
+                    {
+                        if (YP.greaterThanOrEqual(C1, 0))
+                        {
+                            foreach (bool l4 in YP.get_code(C2))
+                            {
+#if false
+                                foreach (bool l5 in read_tokens(C2, Dict, Tokens))
+                                {
+                                    yield return false;
+                                }
+#endif
+                                arg1 = YP.getValue(C2);
+                                arg2 = YP.getValue(Dict);
+                                arg3 = YP.getValue(Tokens);
+                                repeat = true;
+                            }
+                        }
+                        goto cutIf1;
+                    }
+                    if (YP.greaterThanOrEqual(C1, new ListPair(97, Atom.NIL)))
+                    {
+                        if (YP.lessThanOrEqual(C1, new ListPair(122, Atom.NIL)))
+                        {
+                            foreach (bool l4 in read_identifier(C1, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf2;
+                        }
+                    }
+                    if (YP.greaterThanOrEqual(C1, new ListPair(65, Atom.NIL)))
+                    {
+                        if (YP.lessThanOrEqual(C1, new ListPair(90, Atom.NIL)))
+                        {
+                            foreach (bool l4 in read_variable(C1, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf3;
+                        }
+                    }
+                    if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))
+                    {
+                        if (YP.lessThanOrEqual(C1, new ListPair(57, Atom.NIL)))
+                        {
+                            foreach (bool l4 in read_number(C1, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf4;
+                        }
+                    }
+                    if (YP.lessThan(C1, 127))
+                    {
+                        foreach (bool l3 in read_special(C1, Dict, Tokens))
+                        {
+                            yield return false;
+                        }
+                        goto cutIf5;
+                    }
+                    if (YP.lessThanOrEqual(C1, 160))
+                    {
+                        foreach (bool l3 in YP.get_code(C2))
+                        {
+#if false
+                            foreach (bool l4 in read_tokens(C2, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+#endif
+                            arg1 = YP.getValue(C2);
+                            arg2 = YP.getValue(Dict);
+                            arg3 = YP.getValue(Tokens);
+                            repeat = true;
+                        }
+                        goto cutIf6;
+                    }
+                    if (YP.greaterThanOrEqual(C1, 223))
+                    {
+                        if (YP.notEqual(C1, 247))
+                        {
+                            foreach (bool l4 in read_identifier(C1, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf7;
+                        }
+                    }
+                    if (YP.greaterThanOrEqual(C1, 192))
+                    {
+                        if (YP.notEqual(C1, 215))
+                        {
+                            foreach (bool l4 in read_variable(C1, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf8;
+                        }
+                    }
+                    if (YP.notEqual(C1, 170))
+                    {
+                        if (YP.notEqual(C1, 186))
+                        {
+                            foreach (bool l4 in read_symbol(C1, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf9;
+                        }
+                    }
+                    foreach (bool l2 in read_identifier(C1, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                cutIf9:
+                cutIf8:
+                cutIf7:
+                cutIf6:
+                cutIf5:
+                cutIf4:
+                cutIf3:
+                cutIf2:
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        // Compiler output follows.
+
+        class YPInnerClass { }
+        static Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }
+
+        public static IEnumerable<bool> parseInput(object TermList)
+        {
+            {
+                Variable TermAndVariables = new Variable();
+                FindallAnswers findallAnswers1 = new FindallAnswers(TermAndVariables);
+                foreach (bool l2 in parseInputHelper(TermAndVariables))
+                {
+                    findallAnswers1.add();
+                }
+                foreach (bool l2 in findallAnswers1.result(TermList))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> parseInputHelper(object arg1)
+        {
+            {
+                Variable Term = new Variable();
+                Variable Variables = new Variable();
+                Variable Answer = new Variable();
+                Variable x4 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"f", Term, Variables)))
+                {
+                    foreach (bool l3 in YP.repeat())
+                    {
+                        foreach (bool l4 in portable_read3(Answer, Variables, x4))
+                        {
+                            foreach (bool l5 in remove_pos(Answer, Term))
+                            {
+                                if (YP.termEqual(Term, Atom.a(@"end_of_file")))
+                                {
+                                    yield break;
+                                    goto cutIf1;
+                                }
+                                yield return false;
+                            cutIf1:
+                                { }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> clear_errors()
+        {
+            {
+                yield return false;
+            }
+        }
+
+        public static IEnumerable<bool> remove_pos(object arg1, object arg2)
+        {
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, X))
+                {
+                    foreach (bool l3 in YP.unify(arg2, X))
+                    {
+                        if (YP.var(X))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object X = arg2;
+                Variable _Pos = new Variable();
+                Variable _Name = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"$VAR", _Pos, _Name, X)))
+                {
+                    if (YP.var(X))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable H = new Variable();
+                Variable T = new Variable();
+                Variable NH = new Variable();
+                Variable NT = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(H, T)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(NH, NT)))
+                    {
+                        foreach (bool l4 in remove_pos(H, NH))
+                        {
+                            foreach (bool l5 in remove_pos(T, NT))
+                            {
+                                yield return false;
+                            }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable NA = new Variable();
+                Variable NB = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new Functor2(@",", NA, NB)))
+                    {
+                        foreach (bool l4 in remove_pos(A, NA))
+                        {
+                            foreach (bool l5 in remove_pos(B, NB))
+                            {
+                                yield return false;
+                            }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable Atom_1 = new Variable();
+                Variable _F = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom_1))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom_1))
+                    {
+                        foreach (bool l4 in YP.functor(Atom_1, _F, 0))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                object Term = arg1;
+                object NewTerm = arg2;
+                Variable Func = new Variable();
+                Variable _Pos = new Variable();
+                Variable Args = new Variable();
+                Variable NArgs = new Variable();
+                if (YP.nonvar(Term))
+                {
+                    foreach (bool l3 in YP.univ(Term, new ListPair(Func, new ListPair(_Pos, Args))))
+                    {
+                        foreach (bool l4 in remove_pos(Args, NArgs))
+                        {
+                            foreach (bool l5 in YP.univ(NewTerm, new ListPair(Func, NArgs)))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> portable_read_position(object Term, object PosTerm, object Syntax)
+        {
+            {
+                foreach (bool l2 in portable_read(PosTerm, Syntax))
+                {
+                    foreach (bool l3 in remove_pos(PosTerm, Term))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> portable_read(object Answer, object Syntax)
+        {
+            {
+                Variable Tokens = new Variable();
+                Variable ParseTokens = new Variable();
+                foreach (bool l2 in read_tokens1(Tokens))
+                {
+                    foreach (bool l3 in remove_comments(Tokens, ParseTokens, Syntax))
+                    {
+                        foreach (bool l4 in parse2(ParseTokens, Answer))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> portable_read3(object Answer, object Variables, object Syntax)
+        {
+            {
+                Variable Tokens = new Variable();
+                Variable ParseTokens = new Variable();
+                foreach (bool l2 in read_tokens2(Tokens, Variables))
+                {
+                    foreach (bool l3 in remove_comments(Tokens, ParseTokens, Syntax))
+                    {
+                        foreach (bool l4 in parse2(ParseTokens, Answer))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> remove_comments(object arg1, object arg2, object arg3)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                object Ys = arg2;
+                Variable S = new Variable();
+                Variable E = new Variable();
+                Variable Xs = new Variable();
+                Variable Zs = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"comment", S, E), Xs)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"comment", S, E), Zs)))
+                    {
+                        foreach (bool l4 in remove_comments(Xs, Ys, Zs))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Xs = new Variable();
+                Variable Ys = new Variable();
+                Variable Pos2 = new Variable();
+                Variable Zs = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"/", Atom.a(@"["), Pos), Xs)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"["), Ys)))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, new ListPair(new Functor2(@"list", Pos, Pos2), Zs)))
+                        {
+                            foreach (bool l5 in YP.unify(Pos2, YP.add(Pos, 1)))
+                            {
+                                foreach (bool l6 in remove_comments(Xs, Ys, Zs))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Xs = new Variable();
+                Variable Ys = new Variable();
+                Variable Pos2 = new Variable();
+                Variable Zs = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"/", Atom.a(@"]"), Pos), Xs)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"]"), Ys)))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, new ListPair(new Functor2(@"list", Pos, Pos2), Zs)))
+                        {
+                            foreach (bool l5 in YP.unify(Pos2, YP.add(Pos, 1)))
+                            {
+                                foreach (bool l6 in remove_comments(Xs, Ys, Zs))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object Zs = arg3;
+                Variable Token = new Variable();
+                Variable Xs = new Variable();
+                Variable Ys = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, Xs)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Token, Ys)))
+                    {
+                        foreach (bool l4 in remove_comments(Xs, Ys, Zs))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> expect(object Token, object arg2, object arg3)
+        {
+            {
+                object Rest = arg3;
+                foreach (bool l2 in YP.unify(arg2, new ListPair(Token, Rest)))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+            {
+                object S0 = arg2;
+                object x3 = arg3;
+                foreach (bool l2 in syntax_error(new ListPair(Token, new ListPair(Atom.a(@"or"), new ListPair(Atom.a(@"operator"), new ListPair(Atom.a(@"expected"), Atom.NIL)))), S0))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> parse2(object Tokens, object Answer)
+        {
+            {
+                Variable Term = new Variable();
+                Variable LeftOver = new Variable();
+                foreach (bool l2 in clear_errors())
+                {
+                    foreach (bool l3 in parse(Tokens, 1200, Term, LeftOver))
+                    {
+                        foreach (bool l4 in all_read(LeftOver))
+                        {
+                            foreach (bool l5 in YP.unify(Answer, Term))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                    }
+                    foreach (bool l3 in syntax_error(Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> all_read(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    yield return false;
+                }
+            }
+            {
+                Variable Token = new Variable();
+                Variable S = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S)))
+                {
+                    foreach (bool l3 in syntax_error(new ListPair(Atom.a(@"operator"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"after"), new ListPair(Atom.a(@"expression"), Atom.NIL)))), new ListPair(Token, S)))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> parse(object arg1, object arg2, object arg3, object arg4)
+        {
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in syntax_error(new ListPair(Atom.a(@"expression"), new ListPair(Atom.a(@"expected"), Atom.NIL)), Atom.NIL))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Precedence = arg2;
+                object Term = arg3;
+                object LeftOver = arg4;
+                Variable Token = new Variable();
+                Variable RestTokens = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, RestTokens)))
+                {
+                    foreach (bool l3 in parse5(Token, RestTokens, Precedence, Term, LeftOver))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> parse5(object arg1, object arg2, object arg3, object arg4, object arg5)
+        {
+            {
+                object S0 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
+                {
+                    foreach (bool l3 in cannot_start(Atom.a(@"}"), S0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
+                {
+                    foreach (bool l3 in cannot_start(Atom.a(@"]"), S0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
+                {
+                    foreach (bool l3 in cannot_start(Atom.a(@")"), S0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
+                {
+                    foreach (bool l3 in cannot_start(Atom.a(@","), S0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
+                {
+                    foreach (bool l3 in cannot_start(Atom.a(@"|"), S0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Chars = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", Chars)))
+                {
+                    foreach (bool l3 in exprtl0(S0, Chars, Precedence, Answer, S))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Number = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", Number)))
+                {
+                    foreach (bool l3 in exprtl0(S0, Number, Precedence, Answer, S))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"]"), S1)))
+                    {
+                        foreach (bool l4 in read_atom(new Functor2(@"/", Atom.NIL, 0), S1, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S1 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Arg1 = new Variable();
+                Variable S2 = new Variable();
+                Variable RestArgs = new Variable();
+                Variable S3 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
+                {
+                    foreach (bool l3 in parse(S1, 999, Arg1, S2))
+                    {
+                        foreach (bool l4 in read_list(S2, RestArgs, S3))
+                        {
+                            foreach (bool l5 in exprtl0(S3, new ListPair(Arg1, RestArgs), Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object S1 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Term = new Variable();
+                Variable S2 = new Variable();
+                Variable S3 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))
+                {
+                    foreach (bool l3 in parse(S1, 1200, Term, S2))
+                    {
+                        foreach (bool l4 in expect(Atom.a(@")"), S2, S3))
+                        {
+                            foreach (bool l5 in exprtl0(S3, Term, Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object S1 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Term = new Variable();
+                Variable S2 = new Variable();
+                Variable S3 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))
+                {
+                    foreach (bool l3 in parse(S1, 1200, Term, S2))
+                    {
+                        foreach (bool l4 in expect(Atom.a(@")"), S2, S3))
+                        {
+                            foreach (bool l5 in exprtl0(S3, Term, Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable _Pos = new Variable();
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"{"), _Pos)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"}"), S1)))
+                    {
+                        foreach (bool l4 in read_atom(Atom.a(@"{}"), S1, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S1 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Pos = new Variable();
+                Variable Term = new Variable();
+                Variable S2 = new Variable();
+                Variable S3 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"{"), Pos)))
+                {
+                    foreach (bool l3 in parse(S1, 1200, Term, S2))
+                    {
+                        foreach (bool l4 in expect(Atom.a(@"}"), S2, S3))
+                        {
+                            foreach (bool l5 in exprtl0(S3, new Functor2(@"{}", Pos, Term), Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Variable_1 = new Variable();
+                Variable Name = new Variable();
+                Variable Pos = new Variable();
+                Variable S1 = new Variable();
+                Variable Arg1 = new Variable();
+                Variable S2 = new Variable();
+                Variable RestArgs = new Variable();
+                Variable S3 = new Variable();
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", Variable_1, Name, Pos)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"("), S1)))
+                    {
+                        foreach (bool l4 in parse(S1, 999, Arg1, S2))
+                        {
+                            foreach (bool l5 in read_args(S2, RestArgs, S3))
+                            {
+                                foreach (bool l6 in YP.univ(Term, new ListPair(Atom.a(@"call"), new ListPair(new Functor3(@"$VAR", Pos, Name, Variable_1), new ListPair(Arg1, RestArgs)))))
+                                {
+                                    foreach (bool l7 in exprtl0(S3, Term, Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                                yield break;
+                            }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Variable_1 = new Variable();
+                Variable Name = new Variable();
+                Variable Pos = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", Variable_1, Name, Pos)))
+                {
+                    foreach (bool l3 in exprtl0(S0, new Functor3(@"$VAR", Pos, Name, Variable_1), Precedence, Answer, S))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Atom_1 = new Variable();
+                Variable P = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", Atom_1, P)))
+                {
+                    foreach (bool l3 in read_atom(new Functor2(@"/", Atom_1, P), S0, Precedence, Answer, S))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_atom(object arg1, object arg2, object Precedence, object Answer, object S)
+        {
+            {
+                Variable _Pos = new Variable();
+                Variable Number = new Variable();
+                Variable S1 = new Variable();
+                Variable Negative = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom.a(@"-"), _Pos)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor1(@"number", Number), S1)))
+                    {
+                        foreach (bool l4 in YP.unify(Negative, YP.negate(Number)))
+                        {
+                            foreach (bool l5 in exprtl0(S1, Negative, Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable Functor_1 = new Variable();
+                Variable Pos = new Variable();
+                Variable S1 = new Variable();
+                Variable Arg1 = new Variable();
+                Variable S2 = new Variable();
+                Variable RestArgs = new Variable();
+                Variable S3 = new Variable();
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Functor_1, Pos)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Atom.a(@"("), S1)))
+                    {
+                        foreach (bool l4 in parse(S1, 999, Arg1, S2))
+                        {
+                            foreach (bool l5 in read_args(S2, RestArgs, S3))
+                            {
+                                foreach (bool l6 in YP.univ(Term, new ListPair(Functor_1, new ListPair(Pos, new ListPair(Arg1, RestArgs)))))
+                                {
+                                    foreach (bool l7 in exprtl0(S3, Term, Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                                yield break;
+                            }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                Variable Op = new Variable();
+                Variable Pos = new Variable();
+                Variable Oprec = new Variable();
+                Variable Aprec = new Variable();
+                Variable Flag = new Variable();
+                Variable Term = new Variable();
+                Variable Arg = new Variable();
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Op, Pos)))
+                {
+                    foreach (bool l3 in prefixop(Op, Oprec, Aprec))
+                    {
+                        foreach (bool l4 in possible_right_operand(S0, Flag))
+                        {
+                            if (YP.lessThan(Flag, 0))
+                            {
+                                foreach (bool l6 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, Atom.NIL))))
+                                {
+                                    foreach (bool l7 in exprtl0(S0, Term, Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                                goto cutIf1;
+                            }
+                            if (YP.greaterThan(Oprec, Precedence))
+                            {
+                                foreach (bool l6 in syntax_error(new ListPair(Atom.a(@"prefix"), new ListPair(Atom.a(@"operator"), new ListPair(Op, new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"context"), new ListPair(Atom.a(@"with"), new ListPair(Atom.a(@"precedence"), new ListPair(Precedence, Atom.NIL)))))))), S0))
+                                {
+                                    yield return false;
+                                }
+                                goto cutIf2;
+                            }
+                            if (YP.greaterThan(Flag, 0))
+                            {
+                                foreach (bool l6 in parse(S0, Aprec, Arg, S1))
+                                {
+                                    foreach (bool l7 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, new ListPair(Arg, Atom.NIL)))))
+                                    {
+                                        foreach (bool l8 in exprtl(S1, Oprec, Term, Precedence, Answer, S))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    yield break;
+                                }
+                                goto cutIf3;
+                            }
+                            foreach (bool l5 in peepop(S0, S1))
+                            {
+                                foreach (bool l6 in prefix_is_atom(S1, Oprec))
+                                {
+                                    foreach (bool l7 in exprtl(S1, Oprec, new Functor2(@"/", Op, Pos), Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            }
+                            foreach (bool l5 in parse(S0, Aprec, Arg, S1))
+                            {
+                                foreach (bool l6 in YP.univ(Term, new ListPair(Op, new ListPair(Pos, new ListPair(Arg, Atom.NIL)))))
+                                {
+                                    foreach (bool l7 in exprtl(S1, Oprec, Term, Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                                yield break;
+                            }
+                        cutIf3:
+                        cutIf2:
+                        cutIf1:
+                            { }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S0 = arg2;
+                Variable Atom_1 = new Variable();
+                Variable Pos = new Variable();
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", Atom_1, Pos)))
+                {
+                    foreach (bool l3 in YP.univ(Term, new ListPair(Atom_1, new ListPair(Pos, Atom.NIL))))
+                    {
+                        foreach (bool l4 in exprtl0(S0, Term, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> cannot_start(object Token, object S0)
+        {
+            {
+                foreach (bool l2 in syntax_error(new ListPair(Token, new ListPair(Atom.a(@"cannot"), new ListPair(Atom.a(@"start"), new ListPair(Atom.a(@"an"), new ListPair(Atom.a(@"expression"), Atom.NIL))))), S0))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_args(object arg1, object arg2, object arg3)
+        {
+            {
+                object S = arg3;
+                Variable S1 = new Variable();
+                Variable Term = new Variable();
+                Variable Rest = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@","), S1)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(Term, Rest)))
+                    {
+                        foreach (bool l4 in parse(S1, 999, Term, S2))
+                        {
+                            foreach (bool l5 in read_args(S2, Rest, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S = arg3;
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@")"), S)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S = arg1;
+                object x2 = arg2;
+                object x3 = arg3;
+                foreach (bool l2 in syntax_error(new ListPair(Atom.a(@", or )"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"arguments"), Atom.NIL)))), S))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_list(object arg1, object arg2, object arg3)
+        {
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in syntax_error(new ListPair(Atom.a(@", | or ]"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"list"), Atom.NIL)))), Atom.NIL))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Rest = arg2;
+                object S = arg3;
+                Variable Token = new Variable();
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S1)))
+                {
+                    foreach (bool l3 in read_list4(Token, S1, Rest, S))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_list4(object arg1, object arg2, object arg3, object arg4)
+        {
+            {
+                object S1 = arg2;
+                object S = arg4;
+                Variable Term = new Variable();
+                Variable Rest = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Term, Rest)))
+                    {
+                        foreach (bool l4 in parse(S1, 999, Term, S2))
+                        {
+                            foreach (bool l5 in read_list(S2, Rest, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object S1 = arg2;
+                object Rest = arg3;
+                object S = arg4;
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
+                {
+                    foreach (bool l3 in parse(S1, 999, Rest, S2))
+                    {
+                        foreach (bool l4 in expect(Atom.a(@"]"), S2, S))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                    yield break;
+                }
+            }
+            {
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, S1))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))
+                        {
+                            foreach (bool l5 in YP.unify(arg4, S1))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Token = arg1;
+                object S1 = arg2;
+                object x3 = arg3;
+                object x4 = arg4;
+                foreach (bool l2 in syntax_error(new ListPair(Atom.a(@", | or ]"), new ListPair(Atom.a(@"expected"), new ListPair(Atom.a(@"in"), new ListPair(Atom.a(@"list"), Atom.NIL)))), new ListPair(Token, S1)))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> possible_right_operand(object arg1, object arg2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Flag = arg2;
+                Variable H = new Variable();
+                Variable T = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(H, T)))
+                {
+                    foreach (bool l3 in possible_right_operand3(H, Flag, T))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> possible_right_operand3(object arg1, object arg2, object arg3)
+        {
+            {
+                object x4 = arg3;
+                Variable x1 = new Variable();
+                Variable x2 = new Variable();
+                Variable x3 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", x1, x2, x3)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x2 = arg3;
+                Variable x1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", x1)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x2 = arg3;
+                Variable x1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", x1)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                Variable x1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 0))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, new ListPair(Atom.a(@"]"), x1)))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                Variable x1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 0))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, new ListPair(Atom.a(@"}"), x1)))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x3 = arg3;
+                Variable x1 = new Variable();
+                Variable x2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", x1, x2)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> peepop(object arg1, object arg2)
+        {
+            {
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), new ListPair(Atom.a(@"("), S1))))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor2(@"atom", F, Pos), new ListPair(Atom.a(@"("), S1))))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable S1 = new Variable();
+                Variable L = new Variable();
+                Variable P = new Variable();
+                Variable R = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), S1)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L, P, R }), S1)))
+                    {
+                        foreach (bool l4 in infixop(F, L, P, R))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable S1 = new Variable();
+                Variable L = new Variable();
+                Variable P = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", F, Pos), S1)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L, P), S1)))
+                    {
+                        foreach (bool l4 in postfixop(F, L, P))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                Variable S0 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, S0))
+                {
+                    foreach (bool l3 in YP.unify(arg2, S0))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> prefix_is_atom(object arg1, object arg2)
+        {
+            {
+                object Precedence = arg2;
+                Variable Token = new Variable();
+                Variable x2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, x2)))
+                {
+                    foreach (bool l3 in prefix_is_atom(Token, Precedence))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object P = arg2;
+                Variable x1 = new Variable();
+                Variable L = new Variable();
+                Variable x3 = new Variable();
+                Variable x4 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { x1, L, x3, x4 })))
+                {
+                    if (YP.greaterThanOrEqual(L, P))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object P = arg2;
+                Variable x1 = new Variable();
+                Variable L = new Variable();
+                Variable x3 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(Atom.a(@"postfixop", Atom.a(@"")), x1, L, x3)))
+                {
+                    if (YP.greaterThanOrEqual(L, P))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
+                {
+                    yield return false;
+                }
+            }
+            {
+                object x1 = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
+                {
+                    yield return false;
+                }
+            }
+            {
+                object x1 = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
+                {
+                    yield return false;
+                }
+            }
+            {
+                object P = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
+                {
+                    if (YP.greaterThanOrEqual(1100, P))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object P = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
+                {
+                    if (YP.greaterThanOrEqual(1000, P))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> exprtl0(object arg1, object arg2, object arg3, object arg4, object arg5)
+        {
+            {
+                object x2 = arg3;
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Term))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Term))
+                        {
+                            foreach (bool l5 in YP.unify(arg5, Atom.NIL))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable Token = new Variable();
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, S1)))
+                {
+                    foreach (bool l3 in exprtl0_6(Token, Term, Precedence, Answer, S, S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> exprtl0_6(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)
+        {
+            {
+                object x2 = arg3;
+                object S1 = arg6;
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"}")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Term))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Term))
+                        {
+                            foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@"}"), S1)))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object x2 = arg3;
+                object S1 = arg6;
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"]")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Term))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Term))
+                        {
+                            foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@"]"), S1)))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object x2 = arg3;
+                object S1 = arg6;
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@")")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Term))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Term))
+                        {
+                            foreach (bool l5 in YP.unify(arg5, new ListPair(Atom.a(@")"), S1)))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                object S1 = arg6;
+                Variable Next = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
+                {
+                    if (YP.greaterThanOrEqual(Precedence, 1000))
+                    {
+                        foreach (bool l4 in parse(S1, 1000, Next, S2))
+                        {
+                            foreach (bool l5 in exprtl(S2, 1000, new Functor2(@",", Term, Next), Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in YP.unify(Answer, Term))
+                    {
+                        foreach (bool l4 in YP.unify(S, new ListPair(Atom.a(@","), S1)))
+                        {
+                            yield return false;
+                        }
+                    }
+                cutIf1:
+                    { }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                object S1 = arg6;
+                Variable Next = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
+                {
+                    if (YP.greaterThanOrEqual(Precedence, 1100))
+                    {
+                        foreach (bool l4 in parse(S1, 1100, Next, S2))
+                        {
+                            foreach (bool l5 in exprtl(S2, 1100, new Functor2(@";", Term, Next), Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                        goto cutIf2;
+                    }
+                    foreach (bool l3 in YP.unify(Answer, Term))
+                    {
+                        foreach (bool l4 in YP.unify(S, new ListPair(Atom.a(@"|"), S1)))
+                        {
+                            yield return false;
+                        }
+                    }
+                cutIf2:
+                    { }
+                }
+            }
+            {
+                object x2 = arg2;
+                object x3 = arg3;
+                object x4 = arg4;
+                object x5 = arg5;
+                object S1 = arg6;
+                Variable S = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"string", S)))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"chars"), new Functor1(@"string", S), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x2 = arg2;
+                object x3 = arg3;
+                object x4 = arg4;
+                object x5 = arg5;
+                object S1 = arg6;
+                Variable N = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"number", N)))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"number"), new Functor1(@"number", N), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
+                {
+                    foreach (bool l3 in YP.unify(arg6, new ListPair(Atom.a(@"}"), S1)))
+                    {
+                        foreach (bool l4 in exprtl0_atom(Atom.a(@"{}"), Term, Precedence, Answer, S, S1))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                object S1 = arg6;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"{")))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"brace"), Atom.a(@"{"), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable S1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
+                {
+                    foreach (bool l3 in YP.unify(arg6, new ListPair(Atom.a(@"]"), S1)))
+                    {
+                        foreach (bool l4 in exprtl0_atom(Atom.NIL, Term, Precedence, Answer, S, S1))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                object S1 = arg6;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"[")))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"bracket"), Atom.a(@"["), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                object S1 = arg6;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"(")))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"parenthesis"), Atom.a(@"("), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                object x4 = arg5;
+                object S1 = arg6;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@" (")))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"parenthesis"), Atom.a(@"("), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object x4 = arg2;
+                object x5 = arg3;
+                object x6 = arg4;
+                object x7 = arg5;
+                object S1 = arg6;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable P = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"var", A, B, P)))
+                {
+                    foreach (bool l3 in cannot_follow(Atom.a(@"variable"), new Functor3(@"var", A, B, P), S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                object S1 = arg6;
+                Variable F = new Variable();
+                Variable P = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"atom", F, P)))
+                {
+                    foreach (bool l3 in exprtl0_atom(new Functor2(@"/", F, P), Term, Precedence, Answer, S, S1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> exprtl0_atom(object arg1, object arg2, object arg3, object arg4, object arg5, object S1)
+        {
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable L1 = new Variable();
+                Variable O1 = new Variable();
+                Variable R1 = new Variable();
+                Variable L2 = new Variable();
+                Variable O2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))
+                {
+                    foreach (bool l3 in ambigop(F, Precedence, L1, O1, R1, L2, O2))
+                    {
+                        foreach (bool l4 in prefix_is_atom(S1, Precedence))
+                        {
+                            foreach (bool l5 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))
+                            {
+                                yield return false;
+                            }
+                            yield break;
+                        }
+                        foreach (bool l4 in exprtl(new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L1, O1, R1 }), S1), 0, Term, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                        foreach (bool l4 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable L1 = new Variable();
+                Variable O1 = new Variable();
+                Variable R1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))
+                {
+                    foreach (bool l3 in infixop(F, L1, O1, R1))
+                    {
+                        foreach (bool l4 in exprtl(new ListPair(new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L1, O1, R1 }), S1), 0, Term, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Term = arg2;
+                object Precedence = arg3;
+                object Answer = arg4;
+                object S = arg5;
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable L2 = new Variable();
+                Variable O2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"/", F, Pos)))
+                {
+                    foreach (bool l3 in postfixop(F, L2, O2))
+                    {
+                        foreach (bool l4 in exprtl(new ListPair(new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L2, O2), S1), 0, Term, Precedence, Answer, S))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object X = arg1;
+                object x2 = arg2;
+                object x3 = arg3;
+                object x4 = arg4;
+                object x5 = arg5;
+                Variable x7 = new Variable();
+                foreach (bool l2 in syntax_error(new ListPair(new Functor2(@"-", Atom.a(@"non"), Atom.a(@"operator")), new ListPair(X, new ListPair(Atom.a(@"follows"), new ListPair(Atom.a(@"expression"), Atom.NIL)))), new ListPair(new Functor2(@"atom", X, x7), S1)))
+                {
+                    yield return false;
+                }
+                yield break;
+            }
+        }
+
+        public static IEnumerable<bool> cannot_follow(object Type, object Token, object Tokens)
+        {
+            {
+                foreach (bool l2 in syntax_error(new ListPair(Type, new ListPair(Atom.a(@"follows"), new ListPair(Atom.a(@"expression"), Atom.NIL))), new ListPair(Token, Tokens)))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> exprtl(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)
+        {
+            {
+                object x1 = arg2;
+                object x3 = arg4;
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg3, Term))
+                    {
+                        foreach (bool l4 in YP.unify(arg5, Term))
+                        {
+                            foreach (bool l5 in YP.unify(arg6, Atom.NIL))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object C = arg2;
+                object Term = arg3;
+                object Precedence = arg4;
+                object Answer = arg5;
+                object S = arg6;
+                Variable Token = new Variable();
+                Variable Tokens = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Token, Tokens)))
+                {
+                    foreach (bool l3 in exprtl_7(Token, C, Term, Precedence, Answer, S, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> exprtl_7(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6, object arg7)
+        {
+            {
+                object C = arg2;
+                object Term = arg3;
+                object Precedence = arg4;
+                object Answer = arg5;
+                object S = arg6;
+                object S1 = arg7;
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable L = new Variable();
+                Variable O = new Variable();
+                Variable R = new Variable();
+                Variable Other = new Variable();
+                Variable S2 = new Variable();
+                Variable Expr = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor(Atom.a(@"infixop", Atom.a(@"")), new object[] { new Functor2(@"/", F, Pos), L, O, R })))
+                {
+                    if (YP.greaterThanOrEqual(Precedence, O))
+                    {
+                        if (YP.lessThanOrEqual(C, L))
+                        {
+                            foreach (bool l5 in parse(S1, R, Other, S2))
+                            {
+                                foreach (bool l6 in YP.univ(Expr, new ListPair(F, new ListPair(Pos, new ListPair(Term, new ListPair(Other, Atom.NIL))))))
+                                {
+                                    foreach (bool l7 in exprtl(S2, O, Expr, Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object C = arg2;
+                object Term = arg3;
+                object Precedence = arg4;
+                object Answer = arg5;
+                object S = arg6;
+                object S1 = arg7;
+                Variable F = new Variable();
+                Variable Pos = new Variable();
+                Variable L = new Variable();
+                Variable O = new Variable();
+                Variable Expr = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(Atom.a(@"postfixop", Atom.a(@"")), new Functor2(@"/", F, Pos), L, O)))
+                {
+                    if (YP.greaterThanOrEqual(Precedence, O))
+                    {
+                        if (YP.lessThanOrEqual(C, L))
+                        {
+                            foreach (bool l5 in YP.univ(Expr, new ListPair(F, new ListPair(Pos, new ListPair(Term, Atom.NIL)))))
+                            {
+                                foreach (bool l6 in peepop(S1, S2))
+                                {
+                                    foreach (bool l7 in exprtl(S2, O, Expr, Precedence, Answer, S))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object C = arg2;
+                object Term = arg3;
+                object Precedence = arg4;
+                object Answer = arg5;
+                object S = arg6;
+                object S1 = arg7;
+                Variable Next = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@",")))
+                {
+                    if (YP.greaterThanOrEqual(Precedence, 1000))
+                    {
+                        if (YP.lessThan(C, 1000))
+                        {
+                            foreach (bool l5 in parse(S1, 1000, Next, S2))
+                            {
+                                foreach (bool l6 in exprtl(S2, 1000, new Functor2(@",", Term, Next), Precedence, Answer, S))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object C = arg2;
+                object Term = arg3;
+                object Precedence = arg4;
+                object Answer = arg5;
+                object S = arg6;
+                object S1 = arg7;
+                Variable Next = new Variable();
+                Variable S2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"|")))
+                {
+                    if (YP.greaterThanOrEqual(Precedence, 1100))
+                    {
+                        if (YP.lessThan(C, 1100))
+                        {
+                            foreach (bool l5 in parse(S1, 1100, Next, S2))
+                            {
+                                foreach (bool l6 in exprtl(S2, 1100, new Functor2(@";", Term, Next), Precedence, Answer, S))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object Token = arg1;
+                object x2 = arg2;
+                object x4 = arg4;
+                object Tokens = arg7;
+                Variable Term = new Variable();
+                foreach (bool l2 in YP.unify(arg3, Term))
+                {
+                    foreach (bool l3 in YP.unify(arg5, Term))
+                    {
+                        foreach (bool l4 in YP.unify(arg6, new ListPair(Token, Tokens)))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> syntax_error(object _Message, object _List)
+        {
+            {
+                yield break;
+            }
+        }
+
+        public static IEnumerable<bool> syntax_error(object _List)
+        {
+            {
+                yield break;
+            }
+        }
+
+        public static IEnumerable<bool> prefixop(object F, object O, object Q)
+        {
+            {
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"fx"), F))
+                {
+                    foreach (bool l3 in YP.unify(Q, YP.subtract(O, 1)))
+                    {
+                        yield return false;
+                    }
+                    goto cutIf1;
+                }
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"fy"), F))
+                {
+                    foreach (bool l3 in YP.unify(Q, O))
+                    {
+                        yield return false;
+                    }
+                    goto cutIf2;
+                }
+            cutIf2:
+            cutIf1:
+                { }
+            }
+        }
+
+        public static IEnumerable<bool> postfixop(object F, object P, object O)
+        {
+            {
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"xf"), F))
+                {
+                    foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))
+                    {
+                        yield return false;
+                    }
+                    goto cutIf1;
+                }
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"yf"), F))
+                {
+                    foreach (bool l3 in YP.unify(P, O))
+                    {
+                        yield return false;
+                    }
+                    goto cutIf2;
+                }
+            cutIf2:
+            cutIf1:
+                { }
+            }
+        }
+
+        public static IEnumerable<bool> infixop(object F, object P, object O, object Q)
+        {
+            {
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"xfy"), F))
+                {
+                    foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))
+                    {
+                        foreach (bool l4 in YP.unify(Q, O))
+                        {
+                            yield return false;
+                        }
+                    }
+                    goto cutIf1;
+                }
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"xfx"), F))
+                {
+                    foreach (bool l3 in YP.unify(P, YP.subtract(O, 1)))
+                    {
+                        foreach (bool l4 in YP.unify(Q, P))
+                        {
+                            yield return false;
+                        }
+                    }
+                    goto cutIf2;
+                }
+                foreach (bool l2 in YP.current_op(O, Atom.a(@"yfx"), F))
+                {
+                    foreach (bool l3 in YP.unify(Q, YP.subtract(O, 1)))
+                    {
+                        foreach (bool l4 in YP.unify(P, O))
+                        {
+                            yield return false;
+                        }
+                    }
+                    goto cutIf3;
+                }
+            cutIf3:
+            cutIf2:
+            cutIf1:
+                { }
+            }
+        }
+
+        public static IEnumerable<bool> ambigop(object F, object Precedence, object L1, object O1, object R1, object L2, object O2)
+        {
+            {
+                foreach (bool l2 in postfixop(F, L2, O2))
+                {
+                    if (YP.lessThanOrEqual(O2, Precedence))
+                    {
+                        foreach (bool l4 in infixop(F, L1, O1, R1))
+                        {
+                            if (YP.lessThanOrEqual(O1, Precedence))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_tokens1(object arg1)
+        {
+            {
+                object TokenList = arg1;
+                Variable C1 = new Variable();
+                Variable _X = new Variable();
+                Variable ListOfTokens = new Variable();
+                foreach (bool l2 in YP.get_code(C1))
+                {
+                    foreach (bool l3 in read_tokens(C1, _X, ListOfTokens))
+                    {
+                        foreach (bool l4 in YP.unify(TokenList, ListOfTokens))
+                        {
+                            yield return false;
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", Atom.a(@"end_of_file"), 0), Atom.NIL)))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_tokens2(object arg1, object arg2)
+        {
+            {
+                object TokenList = arg1;
+                object Dictionary = arg2;
+                Variable C1 = new Variable();
+                Variable Dict = new Variable();
+                Variable ListOfTokens = new Variable();
+                foreach (bool l2 in YP.get_code(C1))
+                {
+                    foreach (bool l3 in read_tokens(C1, Dict, ListOfTokens))
+                    {
+                        foreach (bool l4 in terminate_list(Dict))
+                        {
+                            foreach (bool l5 in YP.unify(Dictionary, Dict))
+                            {
+                                foreach (bool l6 in YP.unify(TokenList, ListOfTokens))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"atom", Atom.a(@"end_of_file"), 0), Atom.NIL)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> terminate_list(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    yield return false;
+                }
+            }
+            {
+                Variable x1 = new Variable();
+                Variable Tail = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, Tail)))
+                {
+                    foreach (bool l3 in terminate_list(Tail))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_special(object arg1, object Dict, object arg3)
+        {
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 95))
+                {
+                    foreach (bool l3 in read_variable(95, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 247))
+                {
+                    foreach (bool l3 in read_symbol(247, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 215))
+                {
+                    foreach (bool l3 in read_symbol(215, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                Variable StartPos = new Variable();
+                Variable EndPos = new Variable();
+                Variable Tokens = new Variable();
+                Variable Ch = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 37))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"comment", StartPos, EndPos), Tokens)))
+                    {
+                        foreach (bool l4 in get_current_position(StartPos))
+                        {
+                            foreach (bool l5 in YP.repeat())
+                            {
+                                foreach (bool l6 in YP.get_code(Ch))
+                                {
+                                    if (YP.lessThan(Ch, new ListPair(32, Atom.NIL)))
+                                    {
+                                        if (YP.notEqual(Ch, 9))
+                                        {
+                                            if (YP.termNotEqual(Ch, -1))
+                                            {
+                                                foreach (bool l10 in get_current_position(EndPos))
+                                                {
+                                                    foreach (bool l11 in YP.get_code(NextCh))
+                                                    {
+                                                        foreach (bool l12 in read_tokens(NextCh, Dict, Tokens))
+                                                        {
+                                                            yield return false;
+                                                        }
+                                                    }
+                                                }
+                                            }
+                                            yield break;
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object T = arg3;
+                Variable C2 = new Variable();
+                Variable StartPos = new Variable();
+                Variable EndPos = new Variable();
+                Variable Tokens = new Variable();
+                Variable StartPos1 = new Variable();
+                Variable NextCh = new Variable();
+                Variable Chars = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 47))
+                {
+                    foreach (bool l3 in YP.get_code(C2))
+                    {
+                        if (YP.equal(C2, new ListPair(42, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.unify(T, new ListPair(new Functor2(@"comment", StartPos, EndPos), Tokens)))
+                            {
+                                foreach (bool l6 in get_current_position(StartPos1))
+                                {
+                                    foreach (bool l7 in YP.unify(StartPos, YP.subtract(StartPos1, 1)))
+                                    {
+                                        foreach (bool l8 in read_solidus(32, NextCh))
+                                        {
+                                            foreach (bool l9 in get_current_position(EndPos))
+                                            {
+                                                foreach (bool l10 in read_tokens(NextCh, Dict, Tokens))
+                                                {
+                                                    yield return false;
+                                                }
+                                            }
+                                        }
+                                    }
+                                }
+                            }
+                            goto cutIf1;
+                        }
+                        foreach (bool l4 in YP.unify(T, Tokens))
+                        {
+                            foreach (bool l5 in rest_symbol(C2, Chars, NextCh))
+                            {
+                                foreach (bool l6 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(47, Chars)))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                    cutIf1:
+                        { }
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 33))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom.a(@"!"), Pos), Tokens)))
+                    {
+                        foreach (bool l4 in get_current_position(Pos))
+                        {
+                            foreach (bool l5 in YP.get_code(NextCh))
+                            {
+                                foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 40))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@" ("), Tokens)))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 41))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@")"), Tokens)))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 44))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@","), Tokens)))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 59))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom.a(@";"), Pos), Tokens)))
+                    {
+                        foreach (bool l4 in get_current_position(Pos))
+                        {
+                            foreach (bool l5 in YP.get_code(NextCh))
+                            {
+                                foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 91))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"["), Pos), Tokens)))
+                    {
+                        foreach (bool l4 in get_current_position(Pos))
+                        {
+                            foreach (bool l5 in YP.get_code(NextCh))
+                            {
+                                foreach (bool l6 in read_tokens(NextCh, Dict, Tokens))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 93))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"]"), Pos), Tokens)))
+                    {
+                        foreach (bool l4 in get_current_position(Pos))
+                        {
+                            foreach (bool l5 in YP.get_code(NextCh))
+                            {
+                                foreach (bool l6 in read_after_atom(NextCh, Dict, Tokens))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Pos = new Variable();
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 123))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"/", Atom.a(@"{"), Pos), Tokens)))
+                    {
+                        foreach (bool l4 in get_current_position(Pos))
+                        {
+                            foreach (bool l5 in YP.get_code(NextCh))
+                            {
+                                foreach (bool l6 in read_tokens(NextCh, Dict, Tokens))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 124))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"|"), Tokens)))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 125))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"}"), Tokens)))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in read_after_atom(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 46))
+                {
+                    foreach (bool l3 in YP.get_code(NextCh))
+                    {
+                        foreach (bool l4 in read_fullstop(NextCh, Dict, Tokens))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                Variable Chars = new Variable();
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 34))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"string", Chars), Tokens)))
+                    {
+                        foreach (bool l4 in read_string(Chars, 34, NextCh))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                Variable Chars = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 39))
+                {
+                    foreach (bool l3 in read_string(Chars, 39, NextCh))
+                    {
+                        foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, Chars))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 35))
+                {
+                    foreach (bool l3 in read_symbol(35, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 36))
+                {
+                    foreach (bool l3 in read_symbol(36, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 38))
+                {
+                    foreach (bool l3 in read_symbol(38, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 42))
+                {
+                    foreach (bool l3 in read_symbol(42, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 43))
+                {
+                    foreach (bool l3 in read_symbol(43, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 45))
+                {
+                    foreach (bool l3 in read_symbol(45, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 58))
+                {
+                    foreach (bool l3 in read_symbol(58, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 60))
+                {
+                    foreach (bool l3 in read_symbol(60, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 61))
+                {
+                    foreach (bool l3 in read_symbol(61, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 62))
+                {
+                    foreach (bool l3 in read_symbol(62, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 63))
+                {
+                    foreach (bool l3 in read_symbol(63, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 64))
+                {
+                    foreach (bool l3 in read_symbol(64, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 92))
+                {
+                    foreach (bool l3 in read_symbol(92, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 94))
+                {
+                    foreach (bool l3 in read_symbol(94, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 96))
+                {
+                    foreach (bool l3 in read_symbol(96, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Tokens = arg3;
+                foreach (bool l2 in YP.unify(arg1, 126))
+                {
+                    foreach (bool l3 in read_symbol(126, Dict, Tokens))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_symbol(object C1, object Dict, object Tokens)
+        {
+            {
+                Variable C2 = new Variable();
+                Variable Chars = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.get_code(C2))
+                {
+                    foreach (bool l3 in rest_symbol(C2, Chars, NextCh))
+                    {
+                        foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(C1, Chars)))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> rest_symbol(object arg1, object arg2, object arg3)
+        {
+            {
+                object C2 = arg1;
+                object LastCh = arg3;
+                Variable Chars = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(C2, Chars)))
+                {
+                    if (YP.greaterThan(C2, 160))
+                    {
+                        if (YP.lessThan(C2, 192))
+                        {
+                            if (YP.notEqual(C2, 186))
+                            {
+                                if (YP.notEqual(C2, 170))
+                                {
+                                    foreach (bool l7 in YP.get_code(NextCh))
+                                    {
+                                        foreach (bool l8 in rest_symbol(NextCh, Chars, LastCh))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    yield break;
+                                }
+                            }
+                        }
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in symbol_char(C2))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in rest_symbol(NextCh, Chars, LastCh))
+                            {
+                                yield return false;
+                            }
+                        }
+                        yield break;
+                    }
+                cutIf1:
+                    { }
+                }
+            }
+            {
+                Variable C2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, C2))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, C2))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> symbol_char(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, 35))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 36))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 38))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 42))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 43))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 45))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 46))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 47))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 58))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 60))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 61))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 62))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 63))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 64))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 92))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 94))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 96))
+                {
+                    yield return false;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 126))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> get_current_position(object Pos)
+        {
+            {
+                foreach (bool l2 in YP.unify(Pos, 0))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_after_atom4(object Ch, object Dict, object arg3, object Chars)
+        {
+            {
+                Variable Atom_1 = new Variable();
+                Variable Pos = new Variable();
+                Variable Tokens = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor2(@"atom", Atom_1, Pos), Tokens)))
+                {
+                    foreach (bool l3 in YP.unify(Pos, 0))
+                    {
+                        foreach (bool l4 in YP.atom_codes(Atom_1, Chars))
+                        {
+                            foreach (bool l5 in read_after_atom(Ch, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_after_atom(object arg1, object Dict, object arg3)
+        {
+            {
+                Variable Tokens = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, 40))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"("), Tokens)))
+                    {
+                        foreach (bool l4 in YP.get_code(NextCh))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Ch = arg1;
+                object Tokens = arg3;
+                foreach (bool l2 in read_tokens(Ch, Dict, Tokens))
+                {
+                    yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_string(object Chars, object Quote, object NextCh)
+        {
+            {
+                Variable Ch = new Variable();
+                Variable Char = new Variable();
+                Variable Next = new Variable();
+                foreach (bool l2 in YP.get_code(Ch))
+                {
+                    foreach (bool l3 in read_char(Ch, Quote, Char, Next))
+                    {
+                        foreach (bool l4 in rest_string5(Char, Next, Chars, Quote, NextCh))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> rest_string5(object arg1, object arg2, object arg3, object arg4, object arg5)
+        {
+            {
+                object _X = arg4;
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg1, -1))
+                {
+                    foreach (bool l3 in YP.unify(arg2, NextCh))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))
+                        {
+                            foreach (bool l5 in YP.unify(arg5, NextCh))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Char = arg1;
+                object Next = arg2;
+                object Quote = arg4;
+                object NextCh = arg5;
+                Variable Chars = new Variable();
+                Variable Char2 = new Variable();
+                Variable Next2 = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new ListPair(Char, Chars)))
+                {
+                    foreach (bool l3 in read_char(Next, Quote, Char2, Next2))
+                    {
+                        foreach (bool l4 in rest_string5(Char2, Next2, Chars, Quote, NextCh))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> escape_char(object arg1, object arg2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, 110))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 10))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 78))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 10))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 116))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 9))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 84))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 9))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 114))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 13))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 82))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 13))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 118))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 11))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 86))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 11))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 98))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 8))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 66))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 8))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 102))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 12))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 70))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 12))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 101))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 27))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 69))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 27))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 100))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 127))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 68))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 127))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 115))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 32))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 83))
+                {
+                    foreach (bool l3 in YP.unify(arg2, 32))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 122))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, 90))
+                {
+                    foreach (bool l3 in YP.unify(arg2, -1))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_variable(object C1, object Dict, object arg3)
+        {
+            {
+                Variable Var = new Variable();
+                Variable Name = new Variable();
+                Variable StartPos = new Variable();
+                Variable Tokens = new Variable();
+                Variable Chars = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor3(@"var", Var, Name, StartPos), Tokens)))
+                {
+                    foreach (bool l3 in get_current_position(StartPos))
+                    {
+                        foreach (bool l4 in read_name(C1, Chars, NextCh))
+                        {
+                            foreach (bool l5 in YP.atom_codes(Name, Chars))
+                            {
+                                if (YP.termEqual(Name, Atom.a(@"_")))
+                                {
+                                    foreach (bool l7 in read_after_atom(NextCh, Dict, Tokens))
+                                    {
+                                        yield return false;
+                                    }
+                                    goto cutIf1;
+                                }
+                                foreach (bool l6 in read_lookup(Dict, Name, Var))
+                                {
+                                    foreach (bool l7 in read_after_atom(NextCh, Dict, Tokens))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            cutIf1:
+                                { }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_lookup(object arg1, object Name, object Var)
+        {
+            {
+                Variable N = new Variable();
+                Variable V = new Variable();
+                Variable L = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", N, V), L)))
+                {
+                    foreach (bool l3 in YP.unify(N, Name))
+                    {
+                        foreach (bool l4 in YP.unify(V, Var))
+                        {
+                            yield return false;
+                        }
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in read_lookup(L, Name, Var))
+                    {
+                        yield return false;
+                    }
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_solidus(object Ch, object LastCh)
+        {
+            {
+                Variable NextCh = new Variable();
+                if (YP.equal(Ch, 42))
+                {
+                    foreach (bool l3 in YP.get_code(NextCh))
+                    {
+                        if (YP.equal(NextCh, 47))
+                        {
+                            foreach (bool l5 in YP.get_code(LastCh))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf2;
+                        }
+                        foreach (bool l4 in read_solidus(NextCh, LastCh))
+                        {
+                            yield return false;
+                        }
+                    cutIf2:
+                        { }
+                    }
+                    goto cutIf1;
+                }
+                if (YP.notEqual(Ch, -1))
+                {
+                    foreach (bool l3 in YP.get_code(NextCh))
+                    {
+                        foreach (bool l4 in read_solidus(NextCh, LastCh))
+                        {
+                            yield return false;
+                        }
+                    }
+                    goto cutIf3;
+                }
+                foreach (bool l2 in YP.unify(LastCh, Ch))
+                {
+                    foreach (bool l3 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in /*comment~n"), Atom.NIL))
+                    {
+                        yield return false;
+                    }
+                }
+            cutIf3:
+            cutIf1:
+                { }
+            }
+        }
+
+        public static IEnumerable<bool> read_identifier(object C1, object Dict, object Tokens)
+        {
+            {
+                Variable Chars = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in read_name(C1, Chars, NextCh))
+                {
+                    foreach (bool l3 in read_after_atom4(NextCh, Dict, Tokens, Chars))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_name(object C1, object arg2, object LastCh)
+        {
+            {
+                Variable Chars = new Variable();
+                Variable C2 = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))
+                {
+                    foreach (bool l3 in YP.get_code(C2))
+                    {
+                        if (YP.greaterThanOrEqual(C2, new ListPair(97, Atom.NIL)))
+                        {
+                            if (YP.lessThanOrEqual(C2, new ListPair(122, Atom.NIL)))
+                            {
+                                foreach (bool l6 in read_name(C2, Chars, LastCh))
+                                {
+                                    yield return false;
+                                }
+                                goto cutIf2;
+                            }
+                            if (YP.lessThan(C2, 192))
+                            {
+                                if (YP.notEqual(YP.bitwiseOr(C2, 16), 186))
+                                {
+                                    foreach (bool l7 in YP.unify(Chars, Atom.NIL))
+                                    {
+                                        foreach (bool l8 in YP.unify(LastCh, C2))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf3;
+                                }
+                            }
+                            if (YP.equal(YP.bitwiseOr(C2, 32), 247))
+                            {
+                                foreach (bool l6 in YP.unify(Chars, Atom.NIL))
+                                {
+                                    foreach (bool l7 in YP.unify(LastCh, C2))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                                goto cutIf4;
+                            }
+                            foreach (bool l5 in read_name(C2, Chars, LastCh))
+                            {
+                                yield return false;
+                            }
+                        cutIf4:
+                        cutIf3:
+                        cutIf2:
+                            goto cutIf1;
+                        }
+                        if (YP.greaterThanOrEqual(C2, new ListPair(65, Atom.NIL)))
+                        {
+                            if (YP.greaterThan(C2, new ListPair(90, Atom.NIL)))
+                            {
+                                if (YP.notEqual(C2, new ListPair(95, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in YP.unify(Chars, Atom.NIL))
+                                    {
+                                        foreach (bool l8 in YP.unify(LastCh, C2))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf6;
+                                }
+                            }
+                            foreach (bool l5 in read_name(C2, Chars, LastCh))
+                            {
+                                yield return false;
+                            }
+                        cutIf6:
+                            goto cutIf5;
+                        }
+                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
+                        {
+                            if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))
+                            {
+                                foreach (bool l6 in read_name(C2, Chars, LastCh))
+                                {
+                                    yield return false;
+                                }
+                                goto cutIf7;
+                            }
+                        }
+                        foreach (bool l4 in YP.unify(Chars, Atom.NIL))
+                        {
+                            foreach (bool l5 in YP.unify(LastCh, C2))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf7:
+                    cutIf5:
+                    cutIf1:
+                        { }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_fullstop(object Ch, object Dict, object Tokens)
+        {
+            {
+                Variable Number = new Variable();
+                Variable Tokens1 = new Variable();
+                Variable Chars = new Variable();
+                Variable NextCh = new Variable();
+                if (YP.lessThanOrEqual(Ch, new ListPair(57, Atom.NIL)))
+                {
+                    if (YP.greaterThanOrEqual(Ch, new ListPair(48, Atom.NIL)))
+                    {
+                        foreach (bool l4 in YP.unify(Tokens, new ListPair(new Functor1(@"number", Number), Tokens1)))
+                        {
+                            foreach (bool l5 in read_float(Number, Dict, Tokens1, new ListPair(48, Atom.NIL), Ch))
+                            {
+                                yield return false;
+                            }
+                        }
+                        goto cutIf1;
+                    }
+                }
+                if (YP.greaterThan(Ch, new ListPair(32, Atom.NIL)))
+                {
+                    foreach (bool l3 in rest_symbol(Ch, Chars, NextCh))
+                    {
+                        foreach (bool l4 in read_after_atom4(NextCh, Dict, Tokens, new ListPair(46, Chars)))
+                        {
+                            yield return false;
+                        }
+                    }
+                    goto cutIf2;
+                }
+                if (YP.greaterThanOrEqual(Ch, 0))
+                {
+                    foreach (bool l3 in YP.unify(Tokens, Atom.NIL))
+                    {
+                        yield return false;
+                    }
+                    goto cutIf3;
+                }
+                foreach (bool l2 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file just after full stop~n"), Atom.NIL))
+                {
+                }
+            cutIf3:
+            cutIf2:
+            cutIf1:
+                { }
+            }
+        }
+
+        public static IEnumerable<bool> read_float(object Number, object Dict, object Tokens, object Digits, object Digit)
+        {
+            {
+                Variable Chars = new Variable();
+                Variable Rest = new Variable();
+                Variable NextCh = new Variable();
+                foreach (bool l2 in prepend(Digits, Chars, Rest))
+                {
+                    foreach (bool l3 in read_float(Digit, Rest, NextCh, Chars))
+                    {
+                        foreach (bool l4 in YP.number_codes(Number, Chars))
+                        {
+                            foreach (bool l5 in read_tokens(NextCh, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> prepend(object arg1, object arg2, object arg3)
+        {
+            {
+                object X = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(46, X)))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+            {
+                object Y = arg3;
+                Variable C = new Variable();
+                Variable Cs = new Variable();
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(C, Cs)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(C, X)))
+                    {
+                        foreach (bool l4 in prepend(Cs, X, Y))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_float(object C1, object arg2, object NextCh, object Total)
+        {
+            {
+                Variable Chars = new Variable();
+                Variable C2 = new Variable();
+                Variable C3 = new Variable();
+                Variable C4 = new Variable();
+                Variable More = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))
+                {
+                    foreach (bool l3 in YP.get_code(C2))
+                    {
+                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
+                        {
+                            if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))
+                            {
+                                foreach (bool l6 in read_float(C2, Chars, NextCh, Total))
+                                {
+                                    yield return false;
+                                }
+                                goto cutIf1;
+                            }
+                        }
+                        if (YP.equal(YP.bitwiseOr(C2, 32), new ListPair(101, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.get_code(C3))
+                            {
+                                if (YP.equal(C3, new ListPair(45, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in YP.get_code(C4))
+                                    {
+                                        foreach (bool l8 in YP.unify(Chars, new ListPair(C2, new ListPair(45, More))))
+                                        {
+                                            if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))
+                                            {
+                                                if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))
+                                                {
+                                                    foreach (bool l11 in read_exponent(C4, More, NextCh))
+                                                    {
+                                                        yield return false;
+                                                    }
+                                                    goto cutIf4;
+                                                }
+                                            }
+                                            foreach (bool l9 in YP.unify(More, Atom.NIL))
+                                            {
+                                                foreach (bool l10 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))
+                                                {
+                                                }
+                                            }
+                                            foreach (bool l9 in YP.unify(More, new ListPair(48, Atom.NIL)))
+                                            {
+                                                foreach (bool l10 in YP.unify(NextCh, C4))
+                                                {
+                                                    yield return false;
+                                                }
+                                            }
+                                        cutIf4:
+                                            { }
+                                        }
+                                    }
+                                    goto cutIf3;
+                                }
+                                if (YP.equal(C3, new ListPair(43, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in YP.get_code(C4))
+                                    {
+                                        foreach (bool l8 in YP.unify(Chars, new ListPair(C2, More)))
+                                        {
+                                            if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))
+                                            {
+                                                if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))
+                                                {
+                                                    foreach (bool l11 in read_exponent(C4, More, NextCh))
+                                                    {
+                                                        yield return false;
+                                                    }
+                                                    goto cutIf6;
+                                                }
+                                            }
+                                            foreach (bool l9 in YP.unify(More, Atom.NIL))
+                                            {
+                                                foreach (bool l10 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))
+                                                {
+                                                }
+                                            }
+                                            foreach (bool l9 in YP.unify(More, new ListPair(48, Atom.NIL)))
+                                            {
+                                                foreach (bool l10 in YP.unify(NextCh, C4))
+                                                {
+                                                    yield return false;
+                                                }
+                                            }
+                                        cutIf6:
+                                            { }
+                                        }
+                                    }
+                                    goto cutIf5;
+                                }
+                                foreach (bool l6 in YP.unify(C4, C3))
+                                {
+                                    foreach (bool l7 in YP.unify(Chars, new ListPair(C2, More)))
+                                    {
+                                        if (YP.greaterThanOrEqual(C4, new ListPair(48, Atom.NIL)))
+                                        {
+                                            if (YP.lessThanOrEqual(C4, new ListPair(57, Atom.NIL)))
+                                            {
+                                                foreach (bool l10 in read_exponent(C4, More, NextCh))
+                                                {
+                                                    yield return false;
+                                                }
+                                                goto cutIf7;
+                                            }
+                                        }
+                                        foreach (bool l8 in YP.unify(More, Atom.NIL))
+                                        {
+                                            foreach (bool l9 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Missing exponent in ~s~n"), new ListPair(Total, Atom.NIL)))
+                                            {
+                                            }
+                                        }
+                                        foreach (bool l8 in YP.unify(More, new ListPair(48, Atom.NIL)))
+                                        {
+                                            foreach (bool l9 in YP.unify(NextCh, C4))
+                                            {
+                                                yield return false;
+                                            }
+                                        }
+                                    cutIf7:
+                                        { }
+                                    }
+                                }
+                            cutIf5:
+                            cutIf3:
+                                { }
+                            }
+                            goto cutIf2;
+                        }
+                        foreach (bool l4 in YP.unify(Chars, Atom.NIL))
+                        {
+                            foreach (bool l5 in YP.unify(NextCh, C2))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf2:
+                    cutIf1:
+                        { }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_exponent(object C1, object arg2, object NextCh)
+        {
+            {
+                Variable Chars = new Variable();
+                Variable C2 = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(C1, Chars)))
+                {
+                    foreach (bool l3 in YP.get_code(C2))
+                    {
+                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
+                        {
+                            if (YP.lessThanOrEqual(C2, new ListPair(57, Atom.NIL)))
+                            {
+                                foreach (bool l6 in read_exponent(C2, Chars, NextCh))
+                                {
+                                    yield return false;
+                                }
+                                goto cutIf1;
+                            }
+                        }
+                        foreach (bool l4 in YP.unify(Chars, Atom.NIL))
+                        {
+                            foreach (bool l5 in YP.unify(NextCh, C2))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf1:
+                        { }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_number(object C1, object Dict, object arg3)
+        {
+            {
+                Variable Number = new Variable();
+                Variable Tokens = new Variable();
+                Variable C2 = new Variable();
+                Variable N = new Variable();
+                Variable C = new Variable();
+                Variable C3 = new Variable();
+                Variable Digits = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor1(@"number", Number), Tokens)))
+                {
+                    foreach (bool l3 in read_number4(C1, C2, 0, N))
+                    {
+                        if (YP.equal(C2, 39))
+                        {
+                            if (YP.greaterThanOrEqual(N, 2))
+                            {
+                                if (YP.lessThanOrEqual(N, 36))
+                                {
+                                    foreach (bool l7 in read_based(N, 0, Number, C))
+                                    {
+                                        foreach (bool l8 in read_tokens(C, Dict, Tokens))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf2;
+                                }
+                            }
+                            if (YP.equal(N, 0))
+                            {
+                                foreach (bool l6 in YP.get_code(C3))
+                                {
+                                    foreach (bool l7 in read_char(C3, -1, Number, C))
+                                    {
+                                        foreach (bool l8 in read_tokens(C, Dict, Tokens))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                }
+                                goto cutIf3;
+                            }
+                            foreach (bool l5 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** ~d' read as ~d '~n"), new ListPair(N, new ListPair(N, Atom.NIL))))
+                            {
+                                foreach (bool l6 in YP.unify(Number, N))
+                                {
+                                    foreach (bool l7 in YP.unify(C, C2))
+                                    {
+                                        foreach (bool l8 in read_tokens(C, Dict, Tokens))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                }
+                            }
+                        cutIf3:
+                        cutIf2:
+                            goto cutIf1;
+                        }
+                        if (YP.equal(C2, 46))
+                        {
+                            foreach (bool l5 in YP.get_code(C3))
+                            {
+                                if (YP.greaterThanOrEqual(C3, new ListPair(48, Atom.NIL)))
+                                {
+                                    if (YP.lessThanOrEqual(C3, new ListPair(57, Atom.NIL)))
+                                    {
+                                        foreach (bool l8 in YP.number_codes(N, Digits))
+                                        {
+                                            foreach (bool l9 in read_float(Number, Dict, Tokens, Digits, C3))
+                                            {
+                                                yield return false;
+                                            }
+                                        }
+                                        goto cutIf5;
+                                    }
+                                }
+                                foreach (bool l6 in YP.unify(Number, N))
+                                {
+                                    foreach (bool l7 in read_fullstop(C3, Dict, Tokens))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            cutIf5:
+                                { }
+                            }
+                            goto cutIf4;
+                        }
+                        foreach (bool l4 in YP.unify(Number, N))
+                        {
+                            foreach (bool l5 in read_tokens(C2, Dict, Tokens))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf4:
+                    cutIf1:
+                        { }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_number4(object C0, object C, object N0, object N)
+        {
+            {
+                Variable N1 = new Variable();
+                Variable C1 = new Variable();
+                if (YP.greaterThanOrEqual(C0, new ListPair(48, Atom.NIL)))
+                {
+                    if (YP.lessThanOrEqual(C0, new ListPair(57, Atom.NIL)))
+                    {
+                        foreach (bool l4 in YP.unify(N1, YP.add(YP.subtract(YP.multiply(N0, 10), new ListPair(48, Atom.NIL)), C0)))
+                        {
+                            foreach (bool l5 in YP.get_code(C1))
+                            {
+                                foreach (bool l6 in read_number4(C1, C, N1, N))
+                                {
+                                    yield return false;
+                                }
+                            }
+                        }
+                        goto cutIf1;
+                    }
+                }
+                if (YP.equal(C0, 95))
+                {
+                    foreach (bool l3 in YP.get_code(C1))
+                    {
+                        foreach (bool l4 in read_number4(C1, C, N0, N))
+                        {
+                            yield return false;
+                        }
+                    }
+                    goto cutIf2;
+                }
+                foreach (bool l2 in YP.unify(C, C0))
+                {
+                    foreach (bool l3 in YP.unify(N, N0))
+                    {
+                        yield return false;
+                    }
+                }
+            cutIf2:
+            cutIf1:
+                { }
+            }
+        }
+
+        public static IEnumerable<bool> read_based(object Base, object N0, object N, object C)
+        {
+            {
+                Variable C1 = new Variable();
+                Variable Digit = new Variable();
+                Variable N1 = new Variable();
+                foreach (bool l2 in YP.get_code(C1))
+                {
+                    if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))
+                    {
+                        if (YP.lessThanOrEqual(C1, new ListPair(57, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, new ListPair(48, Atom.NIL))))
+                            {
+                                if (YP.lessThan(Digit, Base))
+                                {
+                                    foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
+                                    {
+                                        foreach (bool l8 in read_based(Base, N1, N, C))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf2;
+                                }
+                                if (YP.equal(C1, new ListPair(95, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in read_based(Base, N0, N, C))
+                                    {
+                                        yield return false;
+                                    }
+                                    goto cutIf3;
+                                }
+                                foreach (bool l6 in YP.unify(N, N0))
+                                {
+                                    foreach (bool l7 in YP.unify(C, C1))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            cutIf3:
+                            cutIf2:
+                                { }
+                            }
+                            goto cutIf1;
+                        }
+                    }
+                    if (YP.greaterThanOrEqual(C1, new ListPair(65, Atom.NIL)))
+                    {
+                        if (YP.lessThanOrEqual(C1, new ListPair(90, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, YP.subtract(new ListPair(65, Atom.NIL), 10))))
+                            {
+                                if (YP.lessThan(Digit, Base))
+                                {
+                                    foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
+                                    {
+                                        foreach (bool l8 in read_based(Base, N1, N, C))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf5;
+                                }
+                                if (YP.equal(C1, new ListPair(95, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in read_based(Base, N0, N, C))
+                                    {
+                                        yield return false;
+                                    }
+                                    goto cutIf6;
+                                }
+                                foreach (bool l6 in YP.unify(N, N0))
+                                {
+                                    foreach (bool l7 in YP.unify(C, C1))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            cutIf6:
+                            cutIf5:
+                                { }
+                            }
+                            goto cutIf4;
+                        }
+                    }
+                    if (YP.greaterThanOrEqual(C1, new ListPair(97, Atom.NIL)))
+                    {
+                        if (YP.lessThanOrEqual(C1, new ListPair(122, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.unify(Digit, YP.subtract(C1, YP.subtract(new ListPair(97, Atom.NIL), 10))))
+                            {
+                                if (YP.lessThan(Digit, Base))
+                                {
+                                    foreach (bool l7 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
+                                    {
+                                        foreach (bool l8 in read_based(Base, N1, N, C))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf8;
+                                }
+                                if (YP.equal(C1, new ListPair(95, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in read_based(Base, N0, N, C))
+                                    {
+                                        yield return false;
+                                    }
+                                    goto cutIf9;
+                                }
+                                foreach (bool l6 in YP.unify(N, N0))
+                                {
+                                    foreach (bool l7 in YP.unify(C, C1))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            cutIf9:
+                            cutIf8:
+                                { }
+                            }
+                            goto cutIf7;
+                        }
+                    }
+                    foreach (bool l3 in YP.unify(Digit, 99))
+                    {
+                        if (YP.lessThan(Digit, Base))
+                        {
+                            foreach (bool l5 in YP.unify(N1, YP.add(YP.multiply(N0, Base), Digit)))
+                            {
+                                foreach (bool l6 in read_based(Base, N1, N, C))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            goto cutIf10;
+                        }
+                        if (YP.equal(C1, new ListPair(95, Atom.NIL)))
+                        {
+                            foreach (bool l5 in read_based(Base, N0, N, C))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf11;
+                        }
+                        foreach (bool l4 in YP.unify(N, N0))
+                        {
+                            foreach (bool l5 in YP.unify(C, C1))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf11:
+                    cutIf10:
+                        { }
+                    }
+                cutIf7:
+                cutIf4:
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> read_char(object Char, object Quote, object Result, object Next)
+        {
+            {
+                Variable C1 = new Variable();
+                Variable C2 = new Variable();
+                Variable C3 = new Variable();
+                Variable Ch = new Variable();
+                if (YP.equal(Char, 92))
+                {
+                    foreach (bool l3 in YP.get_code(C1))
+                    {
+                        if (YP.lessThan(C1, 0))
+                        {
+                            foreach (bool l5 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in ~cquoted~c~n"), new ListPair(Quote, new ListPair(Quote, Atom.NIL))))
+                            {
+                                foreach (bool l6 in YP.unify(Result, -1))
+                                {
+                                    foreach (bool l7 in YP.unify(Next, C1))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            }
+                            goto cutIf2;
+                        }
+                        if (YP.lessThanOrEqual(C1, new ListPair(32, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.get_code(C2))
+                            {
+                                foreach (bool l6 in read_char(C2, Quote, Result, Next))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            goto cutIf3;
+                        }
+                        if (YP.equal(YP.bitwiseOr(C1, 32), new ListPair(99, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.get_code(C2))
+                            {
+                                foreach (bool l6 in read_char(C2, Quote, Result, Next))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            goto cutIf4;
+                        }
+                        if (YP.lessThanOrEqual(C1, new ListPair(55, Atom.NIL)))
+                        {
+                            if (YP.greaterThanOrEqual(C1, new ListPair(48, Atom.NIL)))
+                            {
+                                foreach (bool l6 in YP.get_code(C2))
+                                {
+                                    if (YP.lessThanOrEqual(C2, new ListPair(55, Atom.NIL)))
+                                    {
+                                        if (YP.greaterThanOrEqual(C2, new ListPair(48, Atom.NIL)))
+                                        {
+                                            foreach (bool l9 in YP.get_code(C3))
+                                            {
+                                                if (YP.lessThanOrEqual(C3, new ListPair(55, Atom.NIL)))
+                                                {
+                                                    if (YP.greaterThanOrEqual(C3, new ListPair(48, Atom.NIL)))
+                                                    {
+                                                        foreach (bool l12 in YP.get_code(Next))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(Result, YP.subtract(YP.add(YP.multiply(YP.add(YP.multiply(C1, 8), C2), 8), C3), YP.multiply(73, new ListPair(48, Atom.NIL)))))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                        goto cutIf7;
+                                                    }
+                                                }
+                                                foreach (bool l10 in YP.unify(Next, C3))
+                                                {
+                                                    foreach (bool l11 in YP.unify(Result, YP.subtract(YP.add(YP.multiply(C1, 8), C2), YP.multiply(9, new ListPair(48, Atom.NIL)))))
+                                                    {
+                                                        yield return false;
+                                                    }
+                                                }
+                                            cutIf7:
+                                                { }
+                                            }
+                                            goto cutIf6;
+                                        }
+                                    }
+                                    foreach (bool l7 in YP.unify(Next, C2))
+                                    {
+                                        foreach (bool l8 in YP.unify(Result, YP.subtract(C1, new ListPair(48, Atom.NIL))))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                cutIf6:
+                                    { }
+                                }
+                                goto cutIf5;
+                            }
+                        }
+                        if (YP.equal(C1, new ListPair(94, Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.get_code(C2))
+                            {
+                                if (YP.lessThan(C2, 0))
+                                {
+                                    foreach (bool l7 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** end of file in ~c..~c^..~c~n"), new ListPair(Quote, new ListPair(92, new ListPair(Quote, Atom.NIL)))))
+                                    {
+                                        foreach (bool l8 in YP.unify(Result, -1))
+                                        {
+                                            foreach (bool l9 in YP.unify(Next, C2))
+                                            {
+                                                yield return false;
+                                            }
+                                        }
+                                    }
+                                    goto cutIf9;
+                                }
+                                if (YP.equal(C2, new ListPair(63, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in YP.unify(Result, 127))
+                                    {
+                                        foreach (bool l8 in YP.get_code(Next))
+                                        {
+                                            yield return false;
+                                        }
+                                    }
+                                    goto cutIf10;
+                                }
+                                foreach (bool l6 in YP.unify(Result, YP.bitwiseAnd(C2, 31)))
+                                {
+                                    foreach (bool l7 in YP.get_code(Next))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            cutIf10:
+                            cutIf9:
+                                { }
+                            }
+                            goto cutIf8;
+                        }
+                        foreach (bool l4 in escape_char(C1, Result))
+                        {
+                            foreach (bool l5 in YP.get_code(Next))
+                            {
+                                yield return false;
+                            }
+                            goto cutIf11;
+                        }
+                        foreach (bool l4 in YP.unify(Result, C1))
+                        {
+                            foreach (bool l5 in YP.get_code(Next))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf11:
+                    cutIf8:
+                    cutIf5:
+                    cutIf4:
+                    cutIf3:
+                    cutIf2:
+                        { }
+                    }
+                    goto cutIf1;
+                }
+                if (YP.equal(Char, Quote))
+                {
+                    foreach (bool l3 in YP.get_code(Ch))
+                    {
+                        if (YP.equal(Ch, Quote))
+                        {
+                            foreach (bool l5 in YP.unify(Result, Quote))
+                            {
+                                foreach (bool l6 in YP.get_code(Next))
+                                {
+                                    yield return false;
+                                }
+                            }
+                            goto cutIf13;
+                        }
+                        foreach (bool l4 in YP.unify(Result, -1))
+                        {
+                            foreach (bool l5 in YP.unify(Next, Ch))
+                            {
+                                yield return false;
+                            }
+                        }
+                    cutIf13:
+                        { }
+                    }
+                    goto cutIf12;
+                }
+                if (YP.lessThan(Char, new ListPair(32, Atom.NIL)))
+                {
+                    if (YP.notEqual(Char, 9))
+                    {
+                        if (YP.notEqual(Char, 10))
+                        {
+                            if (YP.notEqual(Char, 13))
+                            {
+                                foreach (bool l6 in YP.unify(Result, -1))
+                            {
+                                    foreach (bool l7 in YP.unify(Next, Char))
+                                {
+                                        foreach (bool l8 in formatError(Atom.a(@"user_error"), Atom.a(@"~N** Strange character ~d ends ~ctoken~c~n"), new ListPair(Char, new ListPair(Quote, new ListPair(Quote, Atom.NIL)))))
+                                    {
+                                        yield return false;
+                                    }
+                                }
+                            }
+                            goto cutIf14;
+                            }
+                        }
+                    }
+                }
+                foreach (bool l2 in YP.unify(Result, Char))
+                {
+                    foreach (bool l3 in YP.get_code(Next))
+                    {
+                        yield return false;
+                    }
+                }
+            cutIf14:
+            cutIf12:
+            cutIf1:
+                { }
+            }
+        }
+
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/PrologException.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/PrologException.cs
index ffb8ddc..63b304a 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/PrologException.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/PrologException.cs
@@ -1,71 +1,71 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    /// <summary>

-    /// A PrologException is used as the exception thrown by YP.throw(Term).

-    /// </summary>

-    public class PrologException : Exception

-    {

-        public readonly object _term;

-

-        /// <summary>

-        /// Create a PrologException with the given Term.  The printable exception message is the full Term.

-        /// </summary>

-        /// <param name="Term">the term of the exception</param>

-        /// </param>

-        public PrologException(object Term)

-            : base(YP.getValue(Term).ToString())

-        {

-            _term = YP.makeCopy(Term, new Variable.CopyStore());

-        }

-

-        /// <summary>

-        /// Create a PrologException where the Term is error(ErrorTerm, Message).

-        /// This uses YP.makeCopy to copy the ErrorTerm and Message so that they are valid after unbinding.

-        /// </summary>

-        /// <param name="ErrorTerm">the term of the exception</param>

-        /// <param name="Messsage">the message, converted to a string, to use as the printable exception message

-        /// </param>

-        public PrologException(object ErrorTerm, object Message)

-            : base(YP.getValue(Message).ToString())

-        {

-            _term = YP.makeCopy(new Functor2(Atom.a("error"), ErrorTerm, Message), new Variable.CopyStore());

-        }

-

-        public object Term

-        {

-            get { return _term; }

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    /// <summary>
+    /// A PrologException is used as the exception thrown by YP.throw(Term).
+    /// </summary>
+    public class PrologException : Exception
+    {
+        public readonly object _term;
+
+        /// <summary>
+        /// Create a PrologException with the given Term.  The printable exception message is the full Term.
+        /// </summary>
+        /// <param name="Term">the term of the exception</param>
+        /// </param>
+        public PrologException(object Term)
+            : base(YP.getValue(Term).ToString())
+        {
+            _term = YP.makeCopy(Term, new Variable.CopyStore());
+        }
+
+        /// <summary>
+        /// Create a PrologException where the Term is error(ErrorTerm, Message).
+        /// This uses YP.makeCopy to copy the ErrorTerm and Message so that they are valid after unbinding.
+        /// </summary>
+        /// <param name="ErrorTerm">the term of the exception</param>
+        /// <param name="Messsage">the message, converted to a string, to use as the printable exception message
+        /// </param>
+        public PrologException(object ErrorTerm, object Message)
+            : base(YP.getValue(Message).ToString())
+        {
+            _term = YP.makeCopy(new Functor2(Atom.a("error"), ErrorTerm, Message), new Variable.CopyStore());
+        }
+
+        public object Term
+        {
+            get { return _term; }
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/README.TXT b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/README.TXT
index 05186f1..a1beeb6 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/README.TXT
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/README.TXT
@@ -1,405 +1,405 @@
-YPOS: YieldProlog for OpenSim

-

- a compiler from Prolog to OpenSim compatible C# scripts

-

-Ported by Kino Coursey and Douglas Miles at Daxtron Labs.

-Based on Jeff Thompson Yield Prolog,  http://yieldprolog.sourceforge.net/

-For Prolog see  http://en.wikipedia.org/wiki/Prolog

-

-

-INTRODUCTION

-

-This folder contains code to implement a Prolog compiler using the "Yield Statement" found in C#, Javascript, and Python.

-The original Yield Prolog system can transform Prolog programs into C# code.

-In this system we detect and extract YieldProlog code (with "//YP" as the first four characters in the script) and seperate it from any c# code ("marked by "//CS").

-The YP code is transformed to C# and prepended to the "//CS" section, and passed as a bundel to the existing C# compiler.

-The end result is Prolog can interface to OpenSim using the existing "//CS" functionality, and C# can call the compiled Prolog.

-As such YP allows both declaritive and procedural programming in a 3D script enabled environment.

-

-FEATURES

-* Allows implementation of logic programming for objects and agents.

-* C#/Javascript/Python as intermediate language

-* Yield Prolog has relatively high speed of execution which is important in OpenSim.  http://yieldprolog.sourceforge.net/benchmarks.html

-* It is compatable with the existing C#/Mono based system.

-* Yield Prolog is BSD license

-* Calling Prolog from C# scripts

-* Calling C# functions (with LSL and OS functions) from Prolog

-* Prolog dynamic database

-* Edinburgh, Cocksin & Mellish style syntax.

-* Compiler is generated by compiling the Prolog descrition of itself into C#

-* Same script entry interface as LSL

-

-

-TODO 

-* Utilize ability to generate Javascript and Python code

-* Integrate Prolog database with Sim

-* Translation error reporting back to the editor

-* Communications via message passing

-* Interface to external inference engines

-

-POSSIBILITIES

-* Inworld expert systems

-* Parallel logic programming and expert systems

-* Ontology based processing

-* Knowledge based alerting, accessing and business rules

-   For instance, listen on channel x, filter the events and broadcast alerts on channel y

-     or send IM, emails etc.

-

-

-USAGE:

-

-Add "yp" as an allowed compiler

- 

-OpenSim.ini 

-[ScriptEngine.DotNetEngine]

-AllowedCompilers=lsl,cs,js,vb,yp

-

-Enter scripts using the inworld editing process. Scripts have the following format.

-The first line of a file must have "//yp".

-

-//yp

-<PROLOG CODE>

-//CS

-<CS CODE>

-

-

-

-

-

-

-C# code calling a Prolog Predicate:

------------------------------------

-The Prolog predicate is transformed into a C# boolean function. So the general calling format is:

-        foreach( bool var in  prolog_predicate(ARGS)) {};

-

-I/O is via using a string reader and writer in conjunction with YP.See() and YP.Tell()

-

-            StringWriter PrologOutuput= new StringWriter();

-            StringReader PrologInput= new StringReader(myInputString);

-            YP.see(PrologInput);

-            YP.tell(PrologOutuput);

-            <CALL PROLOG CODE HERE>

-            YP.seen();

-            YP.told();

-            StringBuilder builder = PrologOutput.GetStringBuilder();

-            string finaloutput = builder.ToString();

-

-Any prolog reads and writes will be to the passed StringReader and StringWriter. In fact any TextReader/TextWriter class can be used.

-

-Strings in Prolog are stored as Atom's and you need to use an Atom object to match.

-

-\\yp

-wanted('bob').

-\\cs

-string Who="bob";

-foreach( bool ans in wanted(Atom.a(Who) )){};

-

-

-Prolog code calling a C# function:

------------------------------------

-The prolog code uses the script_event('name_of_function',ARGS) builtin, which is transformed into the function call.

-The C# function called uses "PrologCallback" and returns a boolean.

-

-

-

-Dynamic database assertions:

------------------------------------

-

-void assertdb2(string predicate, string arg1, string arg2)

-{

-        name = Atom.a(predicate);

-        YP.assertFact(name, new object[] { arg1, arg2 });

-}

-

-void retractdb2(string predicate, string arg1, string arg2)

-{

-        name = Atom.a(predicate);

-        YP.retractFact(name, new object[] { arg1, arg2 });

-}

-

-

-========================= APPENDIX A: touch test ================================

-

-

- ===================================

-Input YP Code

- ===================================

-//yp

- mydb('field2','field1').

- mydb('andy','jane').

- mydb('carl','dan').

- mydb('andy','bill').

- mydb('andy','betty').

- 

- call_me(X):-mydb(X,Y) , respond(Y).

- respond(X):- script_event('sayit',X).

-

-//cs

-  public void default_event_touch_start(int N ) 

-  {

-      llSay(0,"pstart1");

-      foreach( bool ans in call_me(Atom.a(@"andy") )){};

-      llSay(0,"pstop2");

-  }

-  

-  public void default_event_state_entry()

-  {

-     llSay(0,"prolog tester active.");  

-  }

-

-PrologCallback sayit(object ans)

-  {

-      llSay(0,"sayit1");

-      string msg = "one answer is :"+((Variable)ans).getValue();  

-      llSay(0,msg); 

-      yield return false;

-  }

-

-

- ===================================

-Generated CS Code

- ===================================

-using OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog;using OpenSim.Region.ScriptEngine.Common; using System.Collections.Generic;

-namespace SecondLife { public class Script : OpenSim.Region.ScriptEngine.Common.BuiltIn_Commands_BaseClass { 

-static OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP YP=null;public Script() {  YP= new OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP(); } 

-//cs

-  public void default_event_touch_start(int N ) 

-  {

-      llSay(0,"pstart1");

-      foreach( bool ans in call_me(Atom.a(@"carl") )){};

-      llSay(0,"pstop2");

-  }

-  

-  public void default_event_state_entry()

-  {

-     llSay(0,"prolog tester active.");  

-  }

-

-public IEnumerable<bool>  sayit(object ans)

-  {

-      llSay(0,"sayit1");

-      string msg = "one answer is :"+((Variable)ans).getValue();  

-      llSay(0,msg); 

-      yield return false;

-  }

-

-

-//YPEncoded

-public IEnumerable<bool> mydb(object arg1, object arg2) {

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"carl"))) {

-      foreach (bool l3 in YP.unify(arg2, Atom.a(@"dan"))) {

-        yield return false;

-      }

-    }

-  }

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"andy"))) {

-      foreach (bool l3 in YP.unify(arg2, Atom.a(@"bill"))) {

-        yield return false;

-      }

-    }

-  }

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"andy"))) {

-      foreach (bool l3 in YP.unify(arg2, Atom.a(@"betty"))) {

-        yield return false;

-      }

-    }

-  }

-}

-

-public IEnumerable<bool> call_me(object X) {

-  {

-    Variable Y = new Variable();

-    foreach (bool l2 in mydb(X, Y)) {

-      foreach (bool l3 in respond(Y)) {

-        yield return false;

-      }

-    }

-  }

-}

-

-public IEnumerable<bool> respond(object X) {

-  {

-    foreach (bool l2 in this.sayit( X)) {

-      yield return false;

-    }

-  }

-}

-

-} }

-

-

-

-========================= APPENDIX B:SENSOR INFORMED SCRIPT =====================

-

-

- ===================================

-Input YP Code

- ===================================

-//yp

-

-nop.

-

-good('Daxxon Kinoc').

-good('Fluffy Kitty').

-

-bad('Eric Evil').

-bad('Spikey Plant').

-

-prolog_notify(X) :- good(X) , script_event('accept',X).

-prolog_notify(X) :- bad(X) , script_event('reject',X).

-

-

-//cs

-

-public void default_event_state_entry()

-  {

-     llSay(0,"prolog sensor tester active.");

-

-    // Start a sensor looking for Agents

-     llSensorRepeat("","",AGENT, 10, PI,20); 

-

-  }

-

-public void default_event_sensor(int number_detected )

-{

-  int i;

-  for(i=0;i< number_detected ;i++)

-   {

-    string dName = llDetectedName(i);

-    string dOwner = llDetectedName(i);

-    foreach(bool response in prolog_notify(Atom.a(dName)) ){};

-    foreach(bool response in prolog_notify(dOwner) ){};

-    llSay(0,"Saw "+dName);

-   }

-}

-

-string decodeToString(object obj)

-{

-    if (obj is Variable) { return (string) ((Variable)obj).getValue();}

-    if (obj is Atom) { return (string) ((Atom)obj)._name;}

-    return "unknown type";

-}

-

-PrologCallback accept(object ans)

-  {

-      string msg = "Welcoming :"+decodeToString(ans);  

-      llSay(0,msg); 

-      yield return false;

-  }

-

-PrologCallback reject(object ans)

-  {

-      string msg = "Watching :"+decodeToString(ans);  

-      llSay(0,msg); 

-      yield return false;

-  }

-

-

- ===================================

-Generated CS Code

- ===================================

-

-using OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog; using OpenSim.Region.ScriptEngine.Common; using System.Collections.Generic;

-namespace SecondLife { public class Script : OpenSim.Region.ScriptEngine.Common.BuiltIn_Commands_BaseClass { 

-static OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP YP=null; public Script() {  YP= new OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP(); } 

-//cs

-

-public void default_event_state_entry()

-  {

-     llSay(0,"prolog sensor tester active.");

-

-    // Start a sensor looking for Agents

-     llSensorRepeat("","",AGENT, 10, PI,20); 

-

-  }

-

-public void default_event_sensor(int number_detected )

-{

-  int i;

-  for(i=0;i< number_detected ;i++)

-   {

-    string dName = llDetectedName(i);

-    string dOwner = llDetectedName(i);

-    foreach(bool response in prolog_notify(Atom.a(dName)) ){};

-    foreach(bool response in prolog_notify(dOwner) ){};

-    llSay(0,"Saw "+dName);

-   }

-}

-

-string decodeToString(object obj)

-{

-    if (obj is Variable) { return (string) ((Variable)obj).getValue();}

-    if (obj is Atom) { return (string) ((Atom)obj)._name;}

-    return "unknown type";

-}

-

-public IEnumerable<bool>  accept(object ans)

-  {

-      string msg = "Welcoming :"+decodeToString(ans);  

-      llSay(0,msg); 

-      yield return false;

-  }

-

-public IEnumerable<bool>  reject(object ans)

-  {

-      string msg = "Watching :"+decodeToString(ans);  

-      llSay(0,msg); 

-      yield return false;

-  }

-

-

-//YPEncoded

-public IEnumerable<bool> yp_nop_header_nop() {

-  {

-    yield return false;

-  }

-}

-

-public IEnumerable<bool> good(object arg1) {

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Daxxon Kinoc"))) {

-      yield return false;

-    }

-  }

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Fluffy Kitty"))) {

-      yield return false;

-    }

-  }

-}

-

-public IEnumerable<bool> bad(object arg1) {

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Eric Evil"))) {

-      yield return false;

-    }

-  }

-  {

-    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Spikey Plant"))) {

-      yield return false;

-    }

-  }

-}

-

-public IEnumerable<bool> prolog_notify(object X) {

-  {

-    foreach (bool l2 in good(X)) {

-      foreach (bool l3 in this.accept( X)) {

-        yield return false;

-      }

-    }

-  }

-  {

-    foreach (bool l2 in bad(X)) {

-      foreach (bool l3 in this.reject( X)) {

-        yield return false;

-      }

-    }

-  }

-}

-

-} }

-

+YPOS: YieldProlog for OpenSim
+
+ a compiler from Prolog to OpenSim compatible C# scripts
+
+Ported by Kino Coursey and Douglas Miles at Daxtron Labs.
+Based on Jeff Thompson Yield Prolog,  http://yieldprolog.sourceforge.net/
+For Prolog see  http://en.wikipedia.org/wiki/Prolog
+
+
+INTRODUCTION
+
+This folder contains code to implement a Prolog compiler using the "Yield Statement" found in C#, Javascript, and Python.
+The original Yield Prolog system can transform Prolog programs into C# code.
+In this system we detect and extract YieldProlog code (with "//YP" as the first four characters in the script) and seperate it from any c# code ("marked by "//CS").
+The YP code is transformed to C# and prepended to the "//CS" section, and passed as a bundel to the existing C# compiler.
+The end result is Prolog can interface to OpenSim using the existing "//CS" functionality, and C# can call the compiled Prolog.
+As such YP allows both declaritive and procedural programming in a 3D script enabled environment.
+
+FEATURES
+* Allows implementation of logic programming for objects and agents.
+* C#/Javascript/Python as intermediate language
+* Yield Prolog has relatively high speed of execution which is important in OpenSim.  http://yieldprolog.sourceforge.net/benchmarks.html
+* It is compatable with the existing C#/Mono based system.
+* Yield Prolog is BSD license
+* Calling Prolog from C# scripts
+* Calling C# functions (with LSL and OS functions) from Prolog
+* Prolog dynamic database
+* Edinburgh, Cocksin & Mellish style syntax.
+* Compiler is generated by compiling the Prolog descrition of itself into C#
+* Same script entry interface as LSL
+
+
+TODO 
+* Utilize ability to generate Javascript and Python code
+* Integrate Prolog database with Sim
+* Translation error reporting back to the editor
+* Communications via message passing
+* Interface to external inference engines
+
+POSSIBILITIES
+* Inworld expert systems
+* Parallel logic programming and expert systems
+* Ontology based processing
+* Knowledge based alerting, accessing and business rules
+   For instance, listen on channel x, filter the events and broadcast alerts on channel y
+     or send IM, emails etc.
+
+
+USAGE:
+
+Add "yp" as an allowed compiler
+ 
+OpenSim.ini 
+[ScriptEngine.DotNetEngine]
+AllowedCompilers=lsl,cs,js,vb,yp
+
+Enter scripts using the inworld editing process. Scripts have the following format.
+The first line of a file must have "//yp".
+
+//yp
+<PROLOG CODE>
+//CS
+<CS CODE>
+
+
+
+
+
+
+C# code calling a Prolog Predicate:
+-----------------------------------
+The Prolog predicate is transformed into a C# boolean function. So the general calling format is:
+        foreach( bool var in  prolog_predicate(ARGS)) {};
+
+I/O is via using a string reader and writer in conjunction with YP.See() and YP.Tell()
+
+            StringWriter PrologOutuput= new StringWriter();
+            StringReader PrologInput= new StringReader(myInputString);
+            YP.see(PrologInput);
+            YP.tell(PrologOutuput);
+            <CALL PROLOG CODE HERE>
+            YP.seen();
+            YP.told();
+            StringBuilder builder = PrologOutput.GetStringBuilder();
+            string finaloutput = builder.ToString();
+
+Any prolog reads and writes will be to the passed StringReader and StringWriter. In fact any TextReader/TextWriter class can be used.
+
+Strings in Prolog are stored as Atom's and you need to use an Atom object to match.
+
+\\yp
+wanted('bob').
+\\cs
+string Who="bob";
+foreach( bool ans in wanted(Atom.a(Who) )){};
+
+
+Prolog code calling a C# function:
+-----------------------------------
+The prolog code uses the script_event('name_of_function',ARGS) builtin, which is transformed into the function call.
+The C# function called uses "PrologCallback" and returns a boolean.
+
+
+
+Dynamic database assertions:
+-----------------------------------
+
+void assertdb2(string predicate, string arg1, string arg2)
+{
+        name = Atom.a(predicate);
+        YP.assertFact(name, new object[] { arg1, arg2 });
+}
+
+void retractdb2(string predicate, string arg1, string arg2)
+{
+        name = Atom.a(predicate);
+        YP.retractFact(name, new object[] { arg1, arg2 });
+}
+
+
+========================= APPENDIX A: touch test ================================
+
+
+ ===================================
+Input YP Code
+ ===================================
+//yp
+ mydb('field2','field1').
+ mydb('andy','jane').
+ mydb('carl','dan').
+ mydb('andy','bill').
+ mydb('andy','betty').
+ 
+ call_me(X):-mydb(X,Y) , respond(Y).
+ respond(X):- script_event('sayit',X).
+
+//cs
+  public void default_event_touch_start(int N ) 
+  {
+      llSay(0,"pstart1");
+      foreach( bool ans in call_me(Atom.a(@"andy") )){};
+      llSay(0,"pstop2");
+  }
+  
+  public void default_event_state_entry()
+  {
+     llSay(0,"prolog tester active.");  
+  }
+
+PrologCallback sayit(object ans)
+  {
+      llSay(0,"sayit1");
+      string msg = "one answer is :"+((Variable)ans).getValue();  
+      llSay(0,msg); 
+      yield return false;
+  }
+
+
+ ===================================
+Generated CS Code
+ ===================================
+using OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog;using OpenSim.Region.ScriptEngine.Common; using System.Collections.Generic;
+namespace SecondLife { public class Script : OpenSim.Region.ScriptEngine.Common.BuiltIn_Commands_BaseClass { 
+static OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP YP=null;public Script() {  YP= new OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP(); } 
+//cs
+  public void default_event_touch_start(int N ) 
+  {
+      llSay(0,"pstart1");
+      foreach( bool ans in call_me(Atom.a(@"carl") )){};
+      llSay(0,"pstop2");
+  }
+  
+  public void default_event_state_entry()
+  {
+     llSay(0,"prolog tester active.");  
+  }
+
+public IEnumerable<bool>  sayit(object ans)
+  {
+      llSay(0,"sayit1");
+      string msg = "one answer is :"+((Variable)ans).getValue();  
+      llSay(0,msg); 
+      yield return false;
+  }
+
+
+//YPEncoded
+public IEnumerable<bool> mydb(object arg1, object arg2) {
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"carl"))) {
+      foreach (bool l3 in YP.unify(arg2, Atom.a(@"dan"))) {
+        yield return false;
+      }
+    }
+  }
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"andy"))) {
+      foreach (bool l3 in YP.unify(arg2, Atom.a(@"bill"))) {
+        yield return false;
+      }
+    }
+  }
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"andy"))) {
+      foreach (bool l3 in YP.unify(arg2, Atom.a(@"betty"))) {
+        yield return false;
+      }
+    }
+  }
+}
+
+public IEnumerable<bool> call_me(object X) {
+  {
+    Variable Y = new Variable();
+    foreach (bool l2 in mydb(X, Y)) {
+      foreach (bool l3 in respond(Y)) {
+        yield return false;
+      }
+    }
+  }
+}
+
+public IEnumerable<bool> respond(object X) {
+  {
+    foreach (bool l2 in this.sayit( X)) {
+      yield return false;
+    }
+  }
+}
+
+} }
+
+
+
+========================= APPENDIX B:SENSOR INFORMED SCRIPT =====================
+
+
+ ===================================
+Input YP Code
+ ===================================
+//yp
+
+nop.
+
+good('Daxxon Kinoc').
+good('Fluffy Kitty').
+
+bad('Eric Evil').
+bad('Spikey Plant').
+
+prolog_notify(X) :- good(X) , script_event('accept',X).
+prolog_notify(X) :- bad(X) , script_event('reject',X).
+
+
+//cs
+
+public void default_event_state_entry()
+  {
+     llSay(0,"prolog sensor tester active.");
+
+    // Start a sensor looking for Agents
+     llSensorRepeat("","",AGENT, 10, PI,20); 
+
+  }
+
+public void default_event_sensor(int number_detected )
+{
+  int i;
+  for(i=0;i< number_detected ;i++)
+   {
+    string dName = llDetectedName(i);
+    string dOwner = llDetectedName(i);
+    foreach(bool response in prolog_notify(Atom.a(dName)) ){};
+    foreach(bool response in prolog_notify(dOwner) ){};
+    llSay(0,"Saw "+dName);
+   }
+}
+
+string decodeToString(object obj)
+{
+    if (obj is Variable) { return (string) ((Variable)obj).getValue();}
+    if (obj is Atom) { return (string) ((Atom)obj)._name;}
+    return "unknown type";
+}
+
+PrologCallback accept(object ans)
+  {
+      string msg = "Welcoming :"+decodeToString(ans);  
+      llSay(0,msg); 
+      yield return false;
+  }
+
+PrologCallback reject(object ans)
+  {
+      string msg = "Watching :"+decodeToString(ans);  
+      llSay(0,msg); 
+      yield return false;
+  }
+
+
+ ===================================
+Generated CS Code
+ ===================================
+
+using OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog; using OpenSim.Region.ScriptEngine.Common; using System.Collections.Generic;
+namespace SecondLife { public class Script : OpenSim.Region.ScriptEngine.Common.BuiltIn_Commands_BaseClass { 
+static OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP YP=null; public Script() {  YP= new OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog.YP(); } 
+//cs
+
+public void default_event_state_entry()
+  {
+     llSay(0,"prolog sensor tester active.");
+
+    // Start a sensor looking for Agents
+     llSensorRepeat("","",AGENT, 10, PI,20); 
+
+  }
+
+public void default_event_sensor(int number_detected )
+{
+  int i;
+  for(i=0;i< number_detected ;i++)
+   {
+    string dName = llDetectedName(i);
+    string dOwner = llDetectedName(i);
+    foreach(bool response in prolog_notify(Atom.a(dName)) ){};
+    foreach(bool response in prolog_notify(dOwner) ){};
+    llSay(0,"Saw "+dName);
+   }
+}
+
+string decodeToString(object obj)
+{
+    if (obj is Variable) { return (string) ((Variable)obj).getValue();}
+    if (obj is Atom) { return (string) ((Atom)obj)._name;}
+    return "unknown type";
+}
+
+public IEnumerable<bool>  accept(object ans)
+  {
+      string msg = "Welcoming :"+decodeToString(ans);  
+      llSay(0,msg); 
+      yield return false;
+  }
+
+public IEnumerable<bool>  reject(object ans)
+  {
+      string msg = "Watching :"+decodeToString(ans);  
+      llSay(0,msg); 
+      yield return false;
+  }
+
+
+//YPEncoded
+public IEnumerable<bool> yp_nop_header_nop() {
+  {
+    yield return false;
+  }
+}
+
+public IEnumerable<bool> good(object arg1) {
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Daxxon Kinoc"))) {
+      yield return false;
+    }
+  }
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Fluffy Kitty"))) {
+      yield return false;
+    }
+  }
+}
+
+public IEnumerable<bool> bad(object arg1) {
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Eric Evil"))) {
+      yield return false;
+    }
+  }
+  {
+    foreach (bool l2 in YP.unify(arg1, Atom.a(@"Spikey Plant"))) {
+      yield return false;
+    }
+  }
+}
+
+public IEnumerable<bool> prolog_notify(object X) {
+  {
+    foreach (bool l2 in good(X)) {
+      foreach (bool l3 in this.accept( X)) {
+        yield return false;
+      }
+    }
+  }
+  {
+    foreach (bool l2 in bad(X)) {
+      foreach (bool l3 in this.reject( X)) {
+        yield return false;
+      }
+    }
+  }
+}
+
+} }
+
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/UndefinedPredicateException.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/UndefinedPredicateException.cs
index 035b79c..f746a07 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/UndefinedPredicateException.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/UndefinedPredicateException.cs
@@ -1,62 +1,62 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    /// <summary>

-    /// An UndefinedPredicateException extends PrologException to create an existence_error exception.

-    /// </summary>

-    public class UndefinedPredicateException : PrologException

-    {

-        private Atom _predicateName;

-        private int _arity;

-

-        public UndefinedPredicateException(object message, Atom predicateName, int arity)

-            : base(new Functor2

-                   (Atom.a("existence_error"), Atom.a("procedure"), new Functor2(Atom.a("/"), predicateName, arity)),

-                   message)

-        {

-            _predicateName = predicateName;

-            _arity = arity;

-        }

-

-        public Atom PredicateName

-        {

-            get { return _predicateName; }

-        }

-

-        public int Arity

-        {

-            get { return _arity; }

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    /// <summary>
+    /// An UndefinedPredicateException extends PrologException to create an existence_error exception.
+    /// </summary>
+    public class UndefinedPredicateException : PrologException
+    {
+        private Atom _predicateName;
+        private int _arity;
+
+        public UndefinedPredicateException(object message, Atom predicateName, int arity)
+            : base(new Functor2
+                   (Atom.a("existence_error"), Atom.a("procedure"), new Functor2(Atom.a("/"), predicateName, arity)),
+                   message)
+        {
+            _predicateName = predicateName;
+            _arity = arity;
+        }
+
+        public Atom PredicateName
+        {
+            get { return _predicateName; }
+        }
+
+        public int Arity
+        {
+            get { return _arity; }
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Variable.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Variable.cs
index d5ee21c..47b5278 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Variable.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Variable.cs
@@ -1,196 +1,196 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections;

-using System.Collections.Generic;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public interface IUnifiable

-    {

-        IEnumerable<bool> unify(object arg);

-        void addUniqueVariables(List<Variable> variableSet);

-        object makeCopy(Variable.CopyStore copyStore);

-        bool termEqual(object term);

-        bool ground();

-    }

-

-    public class Variable : IUnifiable

-    {

-        // Use _isBound separate from _value so that it can be bound to any value,

-        //   including null.

-        private bool _isBound = false;

-        private object _value;

-

-        public object getValue()

-        {

-            if (!_isBound)

-                return this;

-

-            object result = _value;

-            while (result is Variable)

-            {

-                if (!((Variable)result)._isBound)

-                    return result;

-

-                // Keep following the Variable chain.

-                result = ((Variable)result)._value;

-            }

-

-            return result;

-        }

-

-        public IEnumerable<bool> unify(object arg)

-        {

-            if (!_isBound)

-            {

-                _value = YP.getValue(arg);

-                if (_value == this)

-                    // We are unifying this unbound variable with itself, so leave it unbound.

-                    yield return false;

-                else

-                {

-                    _isBound = true;

-                    try

-                    {

-                        yield return false;

-                    }

-                    finally

-                    {

-                        // Remove the binding.

-                        _isBound = false;

-                    }

-                }

-            }

-            else

-            {

-                foreach (bool l1 in YP.unify(this, arg))

-                    yield return false;

-            }

-        }

-

-        public override string ToString()

-        {

-            object value = getValue();

-            if (value == this)

-                return "Variable";

-            else

-                return getValue().ToString();

-        }

-

-        /// <summary>

-        /// If bound, call YP.addUniqueVariables on the value.  Otherwise, if this unbound

-        /// variable is not already in variableSet, add it.

-        /// </summary>

-        /// <param name="variableSet"></param>

-        public void addUniqueVariables(List<Variable> variableSet)

-        {

-            if (_isBound)

-                YP.addUniqueVariables(getValue(), variableSet);

-            else

-            {

-                if (variableSet.IndexOf(this) < 0)

-                    variableSet.Add(this);

-            }

-        }

-

-        /// <summary>

-        /// If bound, return YP.makeCopy for the value, else return copyStore.getCopy(this).

-        /// However, if copyStore is null, just return this.

-        /// </summary>

-        /// <param name="copyStore"></param>

-        /// <returns></returns>

-        public object makeCopy(Variable.CopyStore copyStore)

-        {

-            if (_isBound)

-                return YP.makeCopy(getValue(), copyStore);

-            else

-                return copyStore == null ? this : copyStore.getCopy(this);

-        }

-

-        public bool termEqual(object term)

-        {

-            if (_isBound)

-                return YP.termEqual(getValue(), term);

-            else

-                return this == YP.getValue(term);

-        }

-

-        public bool ground()

-        {

-            if (_isBound)

-                // This is usually called by YP.ground which already did getValue, so this

-                //   should never be reached, but check anyway.

-                return YP.ground(getValue());

-            else

-                return false;

-        }

-

-        /// <summary>

-        /// A CopyStore is used by makeCopy to track which Variable objects have

-        /// been copied.

-        /// </summary>

-        public class CopyStore

-        {

-            private List<Variable> _inVariableSet = new List<Variable>();

-            private List<Variable> _outVariableSet = new List<Variable>();

-

-            /// <summary>

-            /// If inVariable has already been copied, return its copy. Otherwise,

-            /// return a fresh Variable associated with inVariable.

-            /// </summary>

-            /// <param name="inVariable"></param>

-            /// <returns></returns>

-            public Variable getCopy(Variable inVariable)

-            {

-                int index = _inVariableSet.IndexOf(inVariable);

-                if (index >= 0)

-                    return _outVariableSet[index];

-                else

-                {

-                    Variable outVariable = new Variable();

-                    _inVariableSet.Add(inVariable);

-                    _outVariableSet.Add(outVariable);

-                    return outVariable;

-                }

-            }

-

-            /// <summary>

-            /// Return the number of unique variables that have been copied.

-            /// </summary>

-            /// <returns></returns>

-            public int getNUniqueVariables()

-            {

-                return _inVariableSet.Count;

-            }

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections;
+using System.Collections.Generic;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public interface IUnifiable
+    {
+        IEnumerable<bool> unify(object arg);
+        void addUniqueVariables(List<Variable> variableSet);
+        object makeCopy(Variable.CopyStore copyStore);
+        bool termEqual(object term);
+        bool ground();
+    }
+
+    public class Variable : IUnifiable
+    {
+        // Use _isBound separate from _value so that it can be bound to any value,
+        //   including null.
+        private bool _isBound = false;
+        private object _value;
+
+        public object getValue()
+        {
+            if (!_isBound)
+                return this;
+
+            object result = _value;
+            while (result is Variable)
+            {
+                if (!((Variable)result)._isBound)
+                    return result;
+
+                // Keep following the Variable chain.
+                result = ((Variable)result)._value;
+            }
+
+            return result;
+        }
+
+        public IEnumerable<bool> unify(object arg)
+        {
+            if (!_isBound)
+            {
+                _value = YP.getValue(arg);
+                if (_value == this)
+                    // We are unifying this unbound variable with itself, so leave it unbound.
+                    yield return false;
+                else
+                {
+                    _isBound = true;
+                    try
+                    {
+                        yield return false;
+                    }
+                    finally
+                    {
+                        // Remove the binding.
+                        _isBound = false;
+                    }
+                }
+            }
+            else
+            {
+                foreach (bool l1 in YP.unify(this, arg))
+                    yield return false;
+            }
+        }
+
+        public override string ToString()
+        {
+            object value = getValue();
+            if (value == this)
+                return "Variable";
+            else
+                return getValue().ToString();
+        }
+
+        /// <summary>
+        /// If bound, call YP.addUniqueVariables on the value.  Otherwise, if this unbound
+        /// variable is not already in variableSet, add it.
+        /// </summary>
+        /// <param name="variableSet"></param>
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            if (_isBound)
+                YP.addUniqueVariables(getValue(), variableSet);
+            else
+            {
+                if (variableSet.IndexOf(this) < 0)
+                    variableSet.Add(this);
+            }
+        }
+
+        /// <summary>
+        /// If bound, return YP.makeCopy for the value, else return copyStore.getCopy(this).
+        /// However, if copyStore is null, just return this.
+        /// </summary>
+        /// <param name="copyStore"></param>
+        /// <returns></returns>
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            if (_isBound)
+                return YP.makeCopy(getValue(), copyStore);
+            else
+                return copyStore == null ? this : copyStore.getCopy(this);
+        }
+
+        public bool termEqual(object term)
+        {
+            if (_isBound)
+                return YP.termEqual(getValue(), term);
+            else
+                return this == YP.getValue(term);
+        }
+
+        public bool ground()
+        {
+            if (_isBound)
+                // This is usually called by YP.ground which already did getValue, so this
+                //   should never be reached, but check anyway.
+                return YP.ground(getValue());
+            else
+                return false;
+        }
+
+        /// <summary>
+        /// A CopyStore is used by makeCopy to track which Variable objects have
+        /// been copied.
+        /// </summary>
+        public class CopyStore
+        {
+            private List<Variable> _inVariableSet = new List<Variable>();
+            private List<Variable> _outVariableSet = new List<Variable>();
+
+            /// <summary>
+            /// If inVariable has already been copied, return its copy. Otherwise,
+            /// return a fresh Variable associated with inVariable.
+            /// </summary>
+            /// <param name="inVariable"></param>
+            /// <returns></returns>
+            public Variable getCopy(Variable inVariable)
+            {
+                int index = _inVariableSet.IndexOf(inVariable);
+                if (index >= 0)
+                    return _outVariableSet[index];
+                else
+                {
+                    Variable outVariable = new Variable();
+                    _inVariableSet.Add(inVariable);
+                    _outVariableSet.Add(outVariable);
+                    return outVariable;
+                }
+            }
+
+            /// <summary>
+            /// Return the number of unique variables that have been copied.
+            /// </summary>
+            /// <returns></returns>
+            public int getNUniqueVariables()
+            {
+                return _inVariableSet.Count;
+            }
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YP.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YP.cs
index 3c0e4e0..2912ab9 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YP.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YP.cs
@@ -1,1440 +1,1440 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.Collections;

-using System.Collections.Generic;

-using System.IO;

-using System.Reflection;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    /// <summary>

-    /// YP has static methods for general functions in Yield Prolog such as <see cref="getValue"/>

-    /// and <see cref="unify"/>.

-    /// </summary>

-    public class YP

-    {

-        private static Fail _fail = new Fail();

-        private static Repeat _repeat = new Repeat();

-        private static Dictionary<NameArity, List<IClause>> _predicatesStore =

-            new Dictionary<NameArity, List<IClause>>();

-        private static TextWriter _outputStream = System.Console.Out;

-        private static TextReader _inputStream = System.Console.In;

-        private static List<object[]> _operatorTable = null;

-

-        /// <summary>

-        /// An IClause is used so that dynamic predicates can call match.

-        /// </summary>

-        public interface IClause

-        {

-            IEnumerable<bool> match(object[] args);

-        }

-

-        public static object getValue(object value)

-        {

-            if (value is Variable)

-                return ((Variable)value).getValue();

-            else

-                return value;

-        }

-

-        public static IEnumerable<bool> unify(object arg1, object arg2)

-        {

-            arg1 = getValue(arg1);

-            arg2 = getValue(arg2);

-            if (arg1 is IUnifiable)

-                return ((IUnifiable)arg1).unify(arg2);

-            else if (arg2 is IUnifiable)

-                return ((IUnifiable)arg2).unify(arg1);

-            else

-            {

-                // Arguments are "normal" types.

-                if (arg1.Equals(arg2))

-                    return new Succeed();

-                else

-                    return _fail;

-            }

-        }

-

-        /// <summary>

-        /// This is used for the lookup key in _factStore.

-        /// </summary>

-        public struct NameArity

-        {

-            public readonly Atom _name;

-            public readonly int _arity;

-

-            public NameArity(Atom name, int arity)

-            {

-                _name = name;

-                _arity = arity;

-            }

-

-            public override bool Equals(object obj)

-            {

-                if (obj is NameArity)

-                {

-                    NameArity nameArity = (NameArity)obj;

-                    return nameArity._name.Equals(_name) && nameArity._arity.Equals(_arity);

-                }

-                else

-                {

-                    return false;

-                }

-            }

-

-            public override int GetHashCode()

-            {

-                return _name.GetHashCode() ^ _arity.GetHashCode();

-            }

-        }

-

-        /// <summary>

-        /// Convert term to an int.

-        /// If term is a single-element List, use its first element

-        /// (to handle the char types like "a").  If can't convert, throw an exception.

-        /// </summary>

-        /// <param name="term"></param>

-        /// <returns></returns>

-        public static int convertInt(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor2 && ((Functor2)term)._name == Atom.DOT &&

-                YP.getValue(((Functor2)term)._arg2) == Atom.NIL)

-                // Assume it is a char type like "a".

-                term = YP.getValue(((Functor2)term)._arg1);

-

-            return (int)term;

-        }

-

-        /// <summary>

-        /// Convert term to a double.  This may convert an int to a double, etc.

-        /// If term is a single-element List, use its first element

-        /// (to handle the char types like "a").  If can't convert, throw an exception.

-        /// </summary>

-        /// <param name="term"></param>

-        /// <returns></returns>

-        public static double convertDouble(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor2 && ((Functor2)term)._name == Atom.DOT &&

-                YP.getValue(((Functor2)term)._arg2) == Atom.NIL)

-                // Assume it is a char type like "a".

-                term = YP.getValue(((Functor2)term)._arg1);

-

-            return Convert.ToDouble(term);

-        }

-

-        /// <summary>

-        /// If term is an integer, set intTerm.

-        /// If term is a single-element List, use its first element

-        /// (to handle the char types like "a").  Return true for success, false if can't convert.

-        /// We use a success return value because throwing an exception is inefficient.

-        /// </summary>

-        /// <param name="term"></param>

-        /// <returns></returns>

-        public static bool getInt(object term, out int intTerm)

-        {

-            term = YP.getValue(term);

-            if (term is Functor2 && ((Functor2)term)._name == Atom.DOT &&

-                YP.getValue(((Functor2)term)._arg2) == Atom.NIL)

-                // Assume it is a char type like "a".

-                term = YP.getValue(((Functor2)term)._arg1);

-

-            if (term is int)

-            {

-                intTerm = (int)term;

-                return true;

-            }

-

-            intTerm = 0;

-            return false;

-        }

-

-        public static bool equal(object x, object y)

-        {

-            x = YP.getValue(x);

-            if (x is DateTime)

-                return (DateTime)x == (DateTime)YP.getValue(y);

-            // Assume convertDouble converts an int to a double perfectly.

-            return YP.convertDouble(x) == YP.convertDouble(y);

-        }

-

-        public static bool notEqual(object x, object y)

-        {

-            x = YP.getValue(x);

-            if (x is DateTime)

-                return (DateTime)x != (DateTime)YP.getValue(y);

-            // Assume convertDouble converts an int to a double perfectly.

-            return YP.convertDouble(x) != YP.convertDouble(y);

-        }

-

-        public static bool greaterThan(object x, object y)

-        {

-            x = YP.getValue(x);

-            if (x is DateTime)

-                return (DateTime)x > (DateTime)YP.getValue(y);

-            // Assume convertDouble converts an int to a double perfectly.

-            return YP.convertDouble(x) > YP.convertDouble(y);

-        }

-

-        public static bool lessThan(object x, object y)

-        {

-            x = YP.getValue(x);

-            if (x is DateTime)

-                return (DateTime)x < (DateTime)YP.getValue(y);

-            // Assume convertDouble converts an int to a double perfectly.

-            return YP.convertDouble(x) < YP.convertDouble(y);

-        }

-

-        public static bool greaterThanOrEqual(object x, object y)

-        {

-            x = YP.getValue(x);

-            if (x is DateTime)

-                return (DateTime)x >= (DateTime)YP.getValue(y);

-            // Assume convertDouble converts an int to a double perfectly.

-            return YP.convertDouble(x) >= YP.convertDouble(y);

-        }

-

-        public static bool lessThanOrEqual(object x, object y)

-        {

-            x = YP.getValue(x);

-            if (x is DateTime)

-                return (DateTime)x <= (DateTime)YP.getValue(y);

-            // Assume convertDouble converts an int to a double perfectly.

-            return YP.convertDouble(x) <= YP.convertDouble(y);

-        }

-

-        public static object negate(object x)

-        {

-            int intX;

-            if (getInt(x, out intX))

-                return -intX;

-            return -convertDouble(x);

-        }

-

-        public static object abs(object x)

-        {

-            int intX;

-            if (getInt(x, out intX))

-                return Math.Abs(intX);

-            return Math.Abs(convertDouble(x));

-        }

-

-        public static object sign(object x)

-        {

-            int intX;

-            if (getInt(x, out intX))

-                return Math.Sign(intX);

-            return Math.Sign(convertDouble(x));

-        }

-

-        /// <summary>

-        /// The ISO standard returns an int.

-        /// </summary>

-        /// <param name="x"></param>

-        /// <returns></returns>

-        public static object floor(object x)

-        {

-            return (int)Math.Floor(convertDouble(x));

-        }

-

-        /// <summary>

-        /// The ISO standard returns an int.

-        /// </summary>

-        /// <param name="x"></param>

-        /// <returns></returns>

-        public static object truncate(object x)

-        {

-            return (int)Math.Truncate(convertDouble(x));

-        }

-

-        /// <summary>

-        /// The ISO standard returns an int.

-        /// </summary>

-        /// <param name="x"></param>

-        /// <returns></returns>

-        public static object round(object x)

-        {

-            return (int)Math.Round(convertDouble(x));

-        }

-

-        /// <summary>

-        /// The ISO standard returns an int.

-        /// </summary>

-        /// <param name="x"></param>

-        /// <returns></returns>

-        public static object ceiling(object x)

-        {

-            return (int)Math.Ceiling(convertDouble(x));

-        }

-

-        public static object sin(object x)

-        {

-            return Math.Sin(YP.convertDouble(x));

-        }

-

-        public static object cos(object x)

-        {

-            return Math.Cos(YP.convertDouble(x));

-        }

-

-        public static object atan(object x)

-        {

-            return Math.Atan(YP.convertDouble(x));

-        }

-

-        public static object exp(object x)

-        {

-            return Math.Exp(YP.convertDouble(x));

-        }

-

-        public static object log(object x)

-        {

-            return Math.Log(YP.convertDouble(x));

-        }

-

-        public static object sqrt(object x)

-        {

-            return Math.Sqrt(convertDouble(x));

-        }

-

-        public static object bitwiseComplement(object x)

-        {

-            return ~YP.convertInt(x);

-        }

-

-        public static object add(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return intX + intY;

-            return convertDouble(x) + convertDouble(y);

-        }

-

-        public static object subtract(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return intX - intY;

-            return convertDouble(x) - convertDouble(y);

-        }

-

-        public static object multiply(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return intX * intY;

-            return convertDouble(x) * convertDouble(y);

-        }

-

-        /// <summary>

-        /// Return floating point, even if both arguments are integer.

-        /// </summary>

-        /// <param name="x"></param>

-        /// <param name="y"></param>

-        /// <returns></returns>

-        public static object divide(object x, object y)

-        {

-            return convertDouble(x) / convertDouble(y);

-        }

-

-        public static object intDivide(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return intX / intY;

-            // Still allow passing a double, but treat as an int.

-            return (int)convertDouble(x) / (int)convertDouble(y);

-        }

-

-        public static object mod(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return intX % intY;

-            // Still allow passing a double, but treat as an int.

-            return (int)convertDouble(x) % (int)convertDouble(y);

-        }

-

-        public static object pow(object x, object y)

-        {

-            return Math.Pow(YP.convertDouble(x), YP.convertDouble(y));

-        }

-

-        public static object bitwiseShiftRight(object x, object y)

-        {

-            return YP.convertInt(x) >> YP.convertInt(y);

-        }

-

-        public static object bitwiseShiftLeft(object x, object y)

-        {

-            return YP.convertInt(x) << YP.convertInt(y);

-        }

-

-        public static object bitwiseAnd(object x, object y)

-        {

-            return YP.convertInt(x) & YP.convertInt(y);

-        }

-

-        public static object bitwiseOr(object x, object y)

-        {

-            return YP.convertInt(x) | YP.convertInt(y);

-        }

-

-        public static object min(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return Math.Min(intX, intY);

-            return Math.Min(convertDouble(x), convertDouble(y));

-        }

-

-        public static object max(object x, object y)

-        {

-            int intX, intY;

-            if (getInt(x, out intX) && getInt(y, out intY))

-                return Math.Max(intX, intY);

-            return Math.Max(convertDouble(x), convertDouble(y));

-        }

-

-        public static IEnumerable<bool> copy_term(object inTerm, object outTerm)

-        {

-            return YP.unify(outTerm, YP.makeCopy(inTerm, new Variable.CopyStore()));

-        }

-

-        public static void addUniqueVariables(object term, List<Variable> variableSet)

-        {

-            term = YP.getValue(term);

-            if (term is IUnifiable)

-                ((IUnifiable)term).addUniqueVariables(variableSet);

-        }

-

-        public static object makeCopy(object term, Variable.CopyStore copyStore)

-        {

-            term = YP.getValue(term);

-            if (term is IUnifiable)

-                return ((IUnifiable)term).makeCopy(copyStore);

-            else

-                // term is a "normal" type. Assume it is ground.

-                return term;

-        }

-

-        /// <summary>

-        /// Sort the array in place according to termLessThan.  This does not remove duplicates

-        /// </summary>

-        /// <param name="array"></param>

-        public static void sortArray(object[] array)

-        {

-            Array.Sort(array, YP.compareTerms);

-        }

-

-        /// <summary>

-        /// Sort the array in place according to termLessThan.  This does not remove duplicates

-        /// </summary>

-        /// <param name="array"></param>

-        public static void sortArray(List<object> array)

-        {

-            array.Sort(YP.compareTerms);

-        }

-

-        /// <summary>

-        /// Sort List according to termLessThan, remove duplicates and unify with Sorted.

-        /// </summary>

-        /// <param name="List"></param>

-        /// <param name="Sorted"></param>

-        /// <returns></returns>

-        public static IEnumerable<bool> sort(object List, object Sorted)

-        {

-            object[] array = ListPair.toArray(List);

-            if (array == null)

-                return YP.fail();

-            if (array.Length > 1)

-                sortArray(array);

-            return YP.unify(Sorted, ListPair.makeWithoutRepeatedTerms(array));

-        }

-

-

-

-        /// <summary>

-        /// Use YP.unify to unify each of the elements of the two arrays, and yield

-        /// once if they all unify.

-        /// </summary>

-        /// <param name="array1"></param>

-        /// <param name="array2"></param>

-        /// <returns></returns>

-        public static IEnumerable<bool> unifyArrays(object[] array1, object[] array2)

-        {

-            if (array1.Length != array2.Length)

-                yield break;

-

-            IEnumerator<bool>[] iterators = new IEnumerator<bool>[array1.Length];

-            bool gotMatch = true;

-            int nIterators = 0;

-            // Try to bind all the arguments.

-            for (int i = 0; i < array1.Length; ++i)

-            {

-                IEnumerator<bool> iterator = YP.unify(array1[i], array2[i]).GetEnumerator();

-                iterators[nIterators++] = iterator;

-                // MoveNext() is true if YP.unify succeeds.

-                if (!iterator.MoveNext())

-                {

-                    gotMatch = false;

-                    break;

-                }

-            }

-

-            try

-            {

-                if (gotMatch)

-                    yield return false;

-            }

-            finally

-            {

-                // Manually finalize all the iterators.

-                for (int i = 0; i < nIterators; ++i)

-                    iterators[i].Dispose();

-            }

-        }

-

-        /// <summary>

-        /// Return an iterator (which you can use in a for-in loop) which does

-        /// zero iterations.  This returns a pre-existing iterator which is

-        /// more efficient than letting the compiler generate a new one.

-        /// </summary>

-        /// <returns></returns>

-        public static IEnumerable<bool> fail()

-        {

-            return _fail;

-        }

-

-        /// <summary>

-        /// Return an iterator (which you can use in a for-in loop) which does

-        /// one iteration.  This returns a pre-existing iterator which is

-        /// more efficient than letting the compiler generate a new one.

-        /// </summary>

-        /// <returns></returns>

-        public static IEnumerable<bool> succeed()

-        {

-            return new Succeed();

-        }

-

-        /// <summary>

-        /// Return an iterator (which you can use in a for-in loop) which repeats

-        /// indefinitely.  This returns a pre-existing iterator which is

-        /// more efficient than letting the compiler generate a new one.

-        /// </summary>

-        /// <returns></returns>

-        public static IEnumerable<bool> repeat()

-        {

-            return _repeat;

-        }

-

-        public static IEnumerable<bool> univ(object Term, object List)

-        {

-            Term = YP.getValue(Term);

-            List = YP.getValue(List);

-

-            if (nonvar(Term))

-                return YP.unify(new ListPair

-                    (getFunctorName(Term), ListPair.make(getFunctorArgs(Term))), List);

-

-            Variable Name = new Variable();

-            Variable ArgList = new Variable();

-            foreach (bool l1 in new ListPair(Name, ArgList).unify(List))

-            {

-                object[] args = ListPair.toArray(ArgList);

-                if (args == null)

-                    throw new Exception("Expected a list. Got: " + ArgList.getValue());

-                if (args.Length == 0)

-                    // Return the Name, even if it is not an Atom.

-                    return YP.unify(Term, Name);

-                if (!atom(Name))

-                    throw new Exception("Expected an atom. Got: " + Name.getValue());

-

-                return YP.unify(Term, Functor.make((Atom)YP.getValue(Name), args));

-            }

-

-            return YP.fail();

-        }

-

-        public static IEnumerable<bool> functor(object Term, object FunctorName, object Arity)

-        {

-            Term = YP.getValue(Term);

-            FunctorName = YP.getValue(FunctorName);

-            Arity = YP.getValue(Arity);

-

-            if (!(Term is Variable))

-            {

-                foreach (bool l1 in YP.unify(FunctorName, getFunctorName(Term)))

-                {

-                    foreach (bool l2 in YP.unify(Arity, getFunctorArgs(Term).Length))

-                        yield return false;

-                }

-            }

-            else

-                throw new NotImplementedException("Debug: must finish functor/3");

-        }

-

-        public static IEnumerable<bool> arg(object ArgNumber, object Term, object Value)

-        {

-            if (YP.var(ArgNumber))

-                throw new NotImplementedException("Debug: must finish arg/3");

-            else

-            {

-                int argNumberInt = convertInt(ArgNumber);

-                if (argNumberInt < 0)

-                    throw new Exception("ArgNumber must be non-negative");

-                object[] termArgs = YP.getFunctorArgs(Term);

-                // Silently fail if argNumberInt is out of range.

-                if (argNumberInt >= 1 && argNumberInt <= termArgs.Length)

-                {

-                    // The first ArgNumber is at 1, not 0.

-                    foreach (bool l1 in YP.unify(Value, termArgs[argNumberInt - 1]))

-                        yield return false;

-                }

-            }

-        }

-

-        public static bool termEqual(object Term1, object Term2)

-        {

-            Term1 = YP.getValue(Term1);

-            if (Term1 is IUnifiable)

-                return ((IUnifiable)Term1).termEqual(Term2);

-            return Term1.Equals(YP.getValue(Term2));

-        }

-

-        public static bool termNotEqual(object Term1, object Term2)

-        {

-            return !termEqual(Term1, Term2);

-        }

-

-        public static bool termLessThan(object Term1, object Term2)

-        {

-            Term1 = YP.getValue(Term1);

-            Term2 = YP.getValue(Term2);

-            int term1TypeCode = getTypeCode(Term1);

-            int term2TypeCode = getTypeCode(Term2);

-            if (term1TypeCode != term2TypeCode)

-                return term1TypeCode < term2TypeCode;

-

-            // The terms are the same type code.

-            if (term1TypeCode == -2)

-            {

-                // Variable.

-                // We always check for equality first because we want to be sure 

-                //   that less than returns false if the terms are equal, in 

-                //   case that the less than check really behaves like less than or equal.

-                if ((Variable)Term1 != (Variable)Term2)

-                    // The hash code should be unique to a Variable object.

-                    return Term1.GetHashCode() < Term2.GetHashCode();

-                return false;

-            }

-            if (term1TypeCode == 0)

-                return ((Atom)Term1)._name.CompareTo(((Atom)Term2)._name) < 0;

-            if (term1TypeCode == 1)

-                return ((Functor1)Term1).lessThan((Functor1)Term2);

-            if (term1TypeCode == 2)

-                return ((Functor2)Term1).lessThan((Functor2)Term2);

-            if (term1TypeCode == 3)

-                return ((Functor3)Term1).lessThan((Functor3)Term2);

-            if (term1TypeCode == 4)

-                return ((Functor)Term1).lessThan((Functor)Term2);

-

-            // Type code is -1 for general objects.  First compare their type names.

-            // Note that this puts Double before Int32 as required by ISO Prolog.

-            string term1TypeName = Term1.GetType().ToString();

-            string term2TypeName = Term2.GetType().ToString();

-            if (term1TypeName != term2TypeName)

-                return term1TypeName.CompareTo(term2TypeName) < 0;

-

-            // The terms are the same type name.

-            if (Term1 is int)

-                return (int)Term1 < (int)Term2;

-            else if (Term1 is double)

-                return (double)Term1 < (double)Term2;

-            else if (Term1 is DateTime)

-                return (DateTime)Term1 < (DateTime)Term2;

-            else if (Term1 is String)

-                return ((String)Term1).CompareTo((String)Term2) < 0;

-            // Debug: Should we try arrays, etc.?

-

-            if (!Term1.Equals(Term2))

-                // Could be equal or greater than.

-                return Term1.GetHashCode() < Term2.GetHashCode();

-            return false;

-        }

-

-        /// <summary>

-        /// Type code is -2 if term is a Variable, 0 if it is an Atom, 

-        /// 1 if it is a Functor1, 2 if it is a Functor2, 3 if it is a Functor3, 

-        /// 4 if it is Functor.

-        /// Otherwise, type code is -1.

-        /// This does not call YP.getValue(term).

-        /// </summary>

-        /// <param name="term"></param>

-        /// <returns></returns>

-        private static int getTypeCode(object term)

-        {

-            if (term is Variable)

-                return -2;

-            else if (term is Atom)

-                return 0;

-            else if (term is Functor1)

-                return 1;

-            else if (term is Functor2)

-                return 2;

-            else if (term is Functor3)

-                return 3;

-            else if (term is Functor)

-                return 4;

-            else

-                return -1;

-        }

-

-        public static bool termLessThanOrEqual(object Term1, object Term2)

-        {

-            if (YP.termEqual(Term1, Term2))

-                return true;

-            return YP.termLessThan(Term1, Term2);

-        }

-

-        public static bool termGreaterThan(object Term1, object Term2)

-        {

-            return !YP.termLessThanOrEqual(Term1, Term2);

-        }

-

-        public static bool termGreaterThanOrEqual(object Term1, object Term2)

-        {

-            // termLessThan should ensure that it returns false if terms are equal,

-            //   so that this would return true.

-            return !YP.termLessThan(Term1, Term2);

-        }

-

-        public static int compareTerms(object Term1, object Term2)

-        {

-            if (YP.termEqual(Term1, Term2))

-                return 0;

-            else if (YP.termLessThan(Term1, Term2))

-                return -1;

-            else

-                return 1;

-        }

-

-        public static bool ground(object Term)

-        {

-            Term = YP.getValue(Term);

-            if (Term is IUnifiable)

-                return ((IUnifiable)Term).ground();

-            return true;

-        }

-

-        public static IEnumerable<bool> current_op

-            (object Priority, object Specifier, object Operator)

-        {

-            if (_operatorTable == null)

-            {

-                // Initialize.

-                _operatorTable = new List<object[]>();

-                _operatorTable.Add(new object[] { 1200, Atom.a("xfx"), Atom.a(":-") });

-                _operatorTable.Add(new object[] { 1200, Atom.a("xfx"), Atom.a("-->") });

-                _operatorTable.Add(new object[] { 1200, Atom.a("fx"), Atom.a(":-") });

-                _operatorTable.Add(new object[] { 1200, Atom.a("fx"), Atom.a("?-") });

-                _operatorTable.Add(new object[] { 1100, Atom.a("xfy"), Atom.a(";") });

-                _operatorTable.Add(new object[] { 1050, Atom.a("xfy"), Atom.a("->") });

-                _operatorTable.Add(new object[] { 1000, Atom.a("xfy"), Atom.a(",") });

-                _operatorTable.Add(new object[] { 900, Atom.a("fy"), Atom.a("\\+") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("\\=") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("==") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("\\==") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@<") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@=<") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@>") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@>=") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=..") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("is") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=:=") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=\\=") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("<") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=<") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a(">") });

-                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a(">=") });

-                _operatorTable.Add(new object[] { 600, Atom.a("xfy"), Atom.a(":") });

-                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("+") });

-                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("-") });

-                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("/\\") });

-                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("\\/") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("*") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("/") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("//") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("rem") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("mod") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("<<") });

-                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a(">>") });

-                _operatorTable.Add(new object[] { 200, Atom.a("xfx"), Atom.a("**") });

-                _operatorTable.Add(new object[] { 200, Atom.a("xfy"), Atom.a("^") });

-                _operatorTable.Add(new object[] { 200, Atom.a("fy"), Atom.a("-") });

-                _operatorTable.Add(new object[] { 200, Atom.a("fy"), Atom.a("\\") });

-                // Debug: This is hacked in to run the Prolog test suite until we implement op/3.

-                _operatorTable.Add(new object[] { 20, Atom.a("xfx"), Atom.a("<--") });

-            }

-

-            object[] args = new object[] { Priority, Specifier, Operator };

-            foreach (object[] answer in _operatorTable)

-            {

-                foreach (bool l1 in YP.unifyArrays(args, answer))

-                    yield return false;

-            }

-        }

-

-        public static IEnumerable<bool> atom_length(object atom, object Length)

-        {

-            return YP.unify(Length, ((Atom)YP.getValue(atom))._name.Length);

-        }

-

-        public static IEnumerable<bool> atom_concat(object Start, object End, object Whole)

-        {

-            // Debug: Should implement for var(Start) which is a kind of search.

-            // Debug: Should we try to preserve the _declaringClass?

-            return YP.unify(Whole, Atom.a(((Atom)YP.getValue(Start))._name +

-                ((Atom)YP.getValue(End))._name));

-        }

-

-        public static IEnumerable<bool> sub_atom

-            (object atom, object Before, object Length, object After, object Sub_atom)

-        {

-            // Debug: Should implement for var(atom) which is a kind of search.

-            // Debug: Should we try to preserve the _declaringClass?

-            Atom atomAtom = (Atom)YP.getValue(atom);

-            int beforeInt = YP.convertInt(Before);

-            int lengthInt = YP.convertInt(Length);

-            if (beforeInt < 0)

-                throw new Exception("Before must be non-negative");

-            if (lengthInt < 0)

-                throw new Exception("Length must be non-negative");

-            int afterInt = atomAtom._name.Length - (beforeInt + lengthInt);

-            if (afterInt >= 0)

-            {

-                foreach (bool l1 in YP.unify(After, afterInt))

-                {

-                    foreach (bool l2 in YP.unify

-                        (Sub_atom, Atom.a(atomAtom._name.Substring(beforeInt, lengthInt))))

-                        yield return false;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> atom_codes(object atom, object List)

-        {

-            atom = YP.getValue(atom);

-            List = YP.getValue(List);

-

-            if (nonvar(atom))

-            {

-                string name = ((Atom)atom)._name;

-                object codeList = Atom.NIL;

-                // Start from the back to make the list.

-                for (int i = name.Length - 1; i >= 0; --i)

-                    codeList = new ListPair((int)name[i], codeList);

-                return YP.unify(List, codeList);

-            }

-            {

-                object[] codeArray = ListPair.toArray(List);

-                char[] charArray = new char[codeArray.Length];

-                for (int i = 0; i < codeArray.Length; ++i)

-                    charArray[i] = (char)YP.convertInt(codeArray[i]);

-                return YP.unify(atom, Atom.a(new String(charArray)));

-            }

-        }

-

-        public static IEnumerable<bool> number_codes(object number, object List)

-        {

-            number = YP.getValue(number);

-            List = YP.getValue(List);

-

-            if (nonvar(number))

-            {

-                string numberString = null;

-                // Try converting to an int first.

-                int intNumber;

-                if (YP.getInt(number, out intNumber))

-                    numberString = intNumber.ToString();

-                else

-                    numberString = YP.doubleToString(YP.convertDouble(number));

-

-                object codeList = Atom.NIL;

-                // Start from the back to make the list.

-                for (int i = numberString.Length - 1; i >= 0; --i)

-                    codeList = new ListPair((int)numberString[i], codeList);

-                return YP.unify(List, codeList);

-            }

-            {

-                object[] codeArray = ListPair.toArray(List);

-                char[] charArray = new char[codeArray.Length];

-                for (int i = 0; i < codeArray.Length; ++i)

-                    charArray[i] = (char)YP.convertInt(codeArray[i]);

-                String numberString = new String(charArray);

-                // Debug: Is there a way in C# to ask if a string parses as int without throwing an exception?

-                try

-                {

-                    // Try an int first.

-                    return YP.unify(number, Convert.ToInt32(numberString));

-                }

-                catch (FormatException) { }

-                return YP.unify(number, Convert.ToDouble(numberString));

-            }

-        }

-

-        /// <summary>

-        /// If term is an Atom or functor type, return its name.

-        /// Otherwise, return term.

-        /// </summary>

-        /// <param name="term"></param>

-        /// <returns></returns>

-        public static object getFunctorName(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor1)

-                return ((Functor1)term)._name;

-            else if (term is Functor2)

-                return ((Functor2)term)._name;

-            else if (term is Functor3)

-                return ((Functor3)term)._name;

-            else if (term is Functor)

-                return ((Functor)term)._name;

-            else

-                return term;

-        }

-

-        /// <summary>

-        /// If term is an Atom or functor type, return an array of its args.

-        /// Otherwise, return an empty array.

-        /// </summary>

-        /// <param name="term"></param>

-        /// <returns></returns>

-        public static object[] getFunctorArgs(object term)

-        {

-            term = YP.getValue(term);

-            if (term is Functor1)

-            {

-                Functor1 functor = (Functor1)term;

-                return new object[] { functor._arg1 };

-            }

-            else if (term is Functor2)

-            {

-                Functor2 functor = (Functor2)term;

-                return new object[] { functor._arg1, functor._arg2 };

-            }

-            else if (term is Functor3)

-            {

-                Functor3 functor = (Functor3)term;

-                return new object[] { functor._arg1, functor._arg2, functor._arg3 };

-            }

-            else if (term is Functor) {

-                Functor functor = (Functor)term;

-                return functor._args;

-            }

-            else

-                return new object[0];

-        }

-

-        public static bool var(object Term)

-        {

-            return YP.getValue(Term) is Variable;

-        }

-

-        public static bool nonvar(object Term)

-        {

-            return !YP.var(Term);

-        }

-

-        public static bool atom(object Term)

-        {

-            return YP.getValue(Term) is Atom;

-        }

-

-        public static bool number(object Term)

-        {

-            Term = getValue(Term);

-            // Debug: Should exhaustively check for all number types.

-            return Term is int || Term is double;

-        }

-

-        public static bool atomic(object Term)

-        {

-            return YP.atom(Term) || YP.number(Term);

-        }

-

-        public static bool compound(object Term)

-        {

-            Term = getValue(Term);

-            return Term is Functor1 || Term is Functor2 || Term is Functor3 || Term is Functor;

-        }

-

-        public static void see(object input)

-        {

-            input = YP.getValue(input);

-            if (input is TextReader)

-            {

-                _inputStream = (TextReader)input;

-                return;

-            }

-            else if (input is Atom)

-            {

-                _inputStream = new StreamReader(((Atom)input)._name);

-                return;

-            }

-            else if (input is String)

-            {

-                _inputStream = new StreamReader((String)input);

-                return;

-            }

-            else

-                throw new InvalidOperationException("Can't open stream for " + input);

-        }

-

-        public static void seen()

-        {

-            if (_inputStream == Console.In)

-                return;

-            _inputStream.Close();

-            _inputStream = Console.In;

-        }

-

-        public static void tell(object output)

-        {

-            output = YP.getValue(output);

-            if (output is TextWriter)

-            {

-                _outputStream = (TextWriter)output;

-                return;

-            }

-            else if (output is Atom)

-            {

-                _outputStream = new StreamWriter(((Atom)output)._name);

-                return;

-            }

-            else if (output is String)

-            {

-                _outputStream = new StreamWriter((String)output);

-                return;

-            }

-            else

-                throw new InvalidOperationException("Can't open stream for " + output);

-        }

-

-        public static void told()

-        {

-            if (_outputStream == Console.Out)

-                return;

-            _outputStream.Close();

-            _outputStream = Console.Out;

-        }

-

-        public static void write(object x)

-        {

-            x = YP.getValue(x);

-            if (x is double)

-                _outputStream.Write(doubleToString((double)x));

-            else

-                _outputStream.Write(x.ToString());

-        }

-

-        /// <summary>

-        /// Format x as a string, making sure that it will parse as an int later.  I.e., for 1.0, don't just

-        /// use "1" which will parse as an int.

-        /// </summary>

-        /// <param name="x"></param>

-        /// <returns></returns>

-        private static string doubleToString(double x)

-        {

-            string xString = x.ToString();

-            // Debug: Is there a way in C# to ask if a string parses as int without throwing an exception?

-            try

-            {

-                Convert.ToInt32(xString);

-                // The string will parse as an int, not a double, so re-format so that it does.

-                // Use float if possible, else exponential if it would be too big.

-                return x.ToString(x >= 100000.0 ? "E1" : "f1");

-            }

-            catch (FormatException)

-            {

-                // Assume it will parse as a double.

-            }

-            return xString;

-        }

-

-        public static void put_code(object x)

-        {

-            _outputStream.Write((char)YP.convertInt(x));

-        }

-

-        public static void nl()

-        {

-            _outputStream.WriteLine();

-        }

-

-        public static IEnumerable<bool> get_code(object code)

-        {

-            return YP.unify(code, _inputStream.Read());

-        }

-

-        public static void assertFact(Atom name, object[] values)

-        {

-            NameArity nameArity = new NameArity(name, values.Length);

-            List<IClause> clauses;

-            IndexedAnswers indexedAnswers;

-            if (!_predicatesStore.TryGetValue(nameArity, out clauses))

-            {

-                // Create an IndexedAnswers as the first clause of the predicate.                

-                _predicatesStore[nameArity] = (clauses = new List<IClause>());

-                clauses.Add(indexedAnswers = new IndexedAnswers());

-            }

-            else

-            {

-                indexedAnswers = clauses[clauses.Count - 1] as IndexedAnswers;

-                if (indexedAnswers == null)

-                    // The latest clause is not an IndexedAnswers, so add one.

-                    clauses.Add(indexedAnswers = new IndexedAnswers());

-            }

-

-            indexedAnswers.addAnswer(values);

-        }

-

-        public static IEnumerable<bool> matchFact(Atom name, object[] arguments)

-        {

-            List<IClause> clauses;

-            if (!_predicatesStore.TryGetValue(new NameArity(name, arguments.Length), out clauses))

-                throw new UndefinedPredicateException

-                    ("Undefined fact: " + name + "/" + arguments.Length, name, 

-                    arguments.Length);

-

-            if (clauses.Count == 1)

-                // Usually there is only one clause, so return it without needing to wrap it in an iterator.

-                return clauses[0].match(arguments);

-            else

-                return matchAllClauses(clauses, arguments);

-        }

-

-        /// <summary>

-        /// Call match(arguments) for each IClause in clauses.  We make this a separate

-        /// function so that matchFact itself does not need to be an iterator object.

-        /// </summary>

-        /// <param name="clauses"></param>

-        /// <param name="arguments"></param>

-        /// <returns></returns>

-        private static IEnumerable<bool> matchAllClauses(List<IClause> clauses, object[] arguments)

-        {

-            foreach (IClause clause in clauses)

-            {

-                foreach (bool lastCall in clause.match(arguments))

-                    yield return false;

-            }

-        }

-

-        public static void retractFact(Atom name, object[] arguments)

-        {

-            NameArity nameArity = new NameArity(name, arguments.Length);

-            List<IClause> clauses;

-            if (!_predicatesStore.TryGetValue(nameArity, out clauses))

-                // Can't find, so ignore.

-                return;

-

-            foreach (object arg in arguments)

-            {

-                if (!YP.var(arg))

-                    throw new InvalidOperationException("All arguments must be unbound");

-            }

-            // Set to a fresh empty IndexedAnswers.

-            _predicatesStore[nameArity] = (clauses = new List<IClause>());

-            clauses.Add(new IndexedAnswers());

-        }

-

-        public static IEnumerable<bool> current_predicate(object NameSlashArity)

-        {

-            NameSlashArity = YP.getValue(NameSlashArity);

-            // First check if Name and Arity are nonvar so we can do a direct lookup.

-            if (YP.ground(NameSlashArity))

-            {

-                if (NameSlashArity is Functor2)

-                {

-                    Functor2 NameArityFunctor = (Functor2)NameSlashArity;

-                    if (NameArityFunctor._name == Atom.SLASH)

-                    {

-                        if (_predicatesStore.ContainsKey(new NameArity

-                             ((Atom)YP.getValue(NameArityFunctor._arg1),

-                              (int)YP.getValue(NameArityFunctor._arg2))))

-                            // The predicate is defined.

-                            yield return false;

-                    }

-                }

-                yield break;

-            }

-

-            foreach (NameArity key in _predicatesStore.Keys)

-            {

-                foreach (bool l1 in YP.unify

-                    (new Functor2(Atom.SLASH, key._name, key._arity), NameSlashArity))

-                    yield return false;

-            }

-        }

-

-        /// <summary>

-        /// Use YP.getFunctorName(Goal) and invoke the static method of this name in the 

-        /// declaringClass, using arguments from YP.getFunctorArgs(Goal).

-        /// Note that Goal must be a simple functor, not a complex expression.

-        /// If not found, this throws UndefinedPredicateException.

-        /// </summary>

-        /// <param name="Goal"></param>

-        /// <param name="contextClass">the class for looking up default function references</param>

-        /// <returns></returns>

-        public static IEnumerable<bool> getIterator(object Goal, Type declaringClass)

-        {

-#if true

-            List<Variable> variableSetList = new List<Variable>();

-            addUniqueVariables(Goal, variableSetList);

-            Variable[] variableSet = variableSetList.ToArray();

-            object Head = Functor.make("function", variableSet);

-

-            object Rule = new Functor2(Atom.RULE, Head, Goal);

-            object RuleList = ListPair.make(new Functor2(Atom.F, Rule, Atom.NIL));

-            StringWriter functionCode = new StringWriter();

-            TextWriter saveOutputStream = _outputStream;

-            try

-            {

-                tell(functionCode);

-                Variable FunctionCode = new Variable();

-                foreach (bool l1 in YPCompiler.makeFunctionPseudoCode(RuleList, FunctionCode))

-                {

-                    if (YP.termEqual(FunctionCode, Atom.a("getDeclaringClass")))

-                        // Ignore getDeclaringClass since we have access to the one passed in.

-                        continue;

-

-                    // Debug: should check if FunctionCode is a single call.

-                    YPCompiler.convertFunctionCSharp(FunctionCode);

-                }

-                told();

-            }

-            finally

-            {

-                // Restore after calling tell.

-                _outputStream = saveOutputStream;

-            }

-            return YPCompiler.compileAnonymousFunction

-                (functionCode.ToString(), variableSet.Length, declaringClass).match(variableSet);

-#else

-            Goal = YP.getValue(Goal);

-            Atom name;

-            object[] args;

-            while (true)

-            {

-                name = (Atom)YP.getFunctorName(Goal);

-                args = YP.getFunctorArgs(Goal);

-                if (name == Atom.HAT && args.Length == 2)

-                    // Assume this is called from a bagof operation.  Skip the leading qualifiers.

-                    Goal = YP.getValue(((Functor2)Goal)._arg2);

-                else

-                    break;

-            }

-            try

-            {

-                return (IEnumerable<bool>)declaringClass.InvokeMember

-                  (name._name, BindingFlags.InvokeMethod, null, null, args);

-            }

-            catch (TargetInvocationException exception)

-            {

-                throw exception.InnerException;

-            }

-            catch (MissingMethodException)

-            {

-                throw new UndefinedPredicateException

-                    ("Cannot find predicate function: " + name + "/" + args.Length + " in " +

-                     declaringClass.FullName, name, args.Length);

-            }

-#endif

-        }

-

-        public static void throwException(object Term)

-        {

-            throw new PrologException(Term);

-        }

-

-        /// <summary>

-        /// script_event calls hosting script with events as a callback method.

-        /// </summary>

-        /// <param name="script_event"></param>

-        /// <param name="script_params"></param>

-        /// <returns></returns>

-        public static void script_event(object script_event, object script_params)

-        {

-            string function = ((Atom)YP.getValue(script_event))._name;

-            object[] array = ListPair.toArray(script_params);

-            if (array == null)

-                return; // YP.fail();

-            if (array.Length > 1)

-            {

-                //m_CmdManager.m_ScriptEngine.m_EventQueManager.AddToScriptQueue

-                //(localID, itemID, function, array);

-                // sortArray(array);

-            }

-            //return YP.unify(Sorted, ListPair.makeWithoutRepeatedTerms(array));

-        }

-

-        /// <summary>

-        /// An enumerator that does zero loops.

-        /// </summary>

-        private class Fail : IEnumerator<bool>, IEnumerable<bool>

-        {

-            public bool MoveNext()

-            {

-                return false;

-            }

-

-            public IEnumerator<bool> GetEnumerator()

-            {

-                return (IEnumerator<bool>)this;

-            }

-

-            IEnumerator IEnumerable.GetEnumerator()

-            {

-                return GetEnumerator();

-            }

-

-            public bool Current

-            {

-                get { return true; }

-            }

-

-            object IEnumerator.Current

-            {

-                get { return true; }

-            }

-

-            public void Dispose()

-            {

-            }

-

-            public void Reset()

-            {

-                throw new NotImplementedException();

-            }

-        }

-

-        /// <summary>

-        /// An enumerator that does one iteration.

-        /// </summary>

-        private class Succeed : IEnumerator<bool>, IEnumerable<bool>

-        {

-            private bool _didIteration = false;

-

-            public bool MoveNext()

-            {

-                if (!_didIteration)

-                {

-                    _didIteration = true;

-                    return true;

-                }

-                else

-                    return false;

-            }

-

-            public IEnumerator<bool> GetEnumerator()

-            {

-                return (IEnumerator<bool>)this;

-            }

-

-            IEnumerator IEnumerable.GetEnumerator()

-            {

-                return GetEnumerator();

-            }

-

-            public bool Current

-            {

-                get { return false; }

-            }

-

-            object IEnumerator.Current

-            {

-                get { return false; }

-            }

-

-            public void Dispose()

-            {

-            }

-

-            public void Reset()

-            {

-                throw new NotImplementedException();

-            }

-        }

-

-        /// <summary>

-        /// An enumerator that repeats forever.

-        /// </summary>

-        private class Repeat : IEnumerator<bool>, IEnumerable<bool>

-        {

-            public bool MoveNext()

-            {

-                return true;

-            }

-

-            public IEnumerator<bool> GetEnumerator()

-            {

-                return (IEnumerator<bool>)this;

-            }

-

-            IEnumerator IEnumerable.GetEnumerator()

-            {

-                return GetEnumerator();

-            }

-

-            public bool Current

-            {

-                get { return false; }

-            }

-

-            object IEnumerator.Current

-            {

-                get { return false; }

-            }

-

-            public void Dispose()

-            {

-            }

-

-            public void Reset()

-            {

-                throw new NotImplementedException();

-            }

-        }

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.Collections;
+using System.Collections.Generic;
+using System.IO;
+using System.Reflection;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    /// <summary>
+    /// YP has static methods for general functions in Yield Prolog such as <see cref="getValue"/>
+    /// and <see cref="unify"/>.
+    /// </summary>
+    public class YP
+    {
+        private static Fail _fail = new Fail();
+        private static Repeat _repeat = new Repeat();
+        private static Dictionary<NameArity, List<IClause>> _predicatesStore =
+            new Dictionary<NameArity, List<IClause>>();
+        private static TextWriter _outputStream = System.Console.Out;
+        private static TextReader _inputStream = System.Console.In;
+        private static List<object[]> _operatorTable = null;
+
+        /// <summary>
+        /// An IClause is used so that dynamic predicates can call match.
+        /// </summary>
+        public interface IClause
+        {
+            IEnumerable<bool> match(object[] args);
+        }
+
+        public static object getValue(object value)
+        {
+            if (value is Variable)
+                return ((Variable)value).getValue();
+            else
+                return value;
+        }
+
+        public static IEnumerable<bool> unify(object arg1, object arg2)
+        {
+            arg1 = getValue(arg1);
+            arg2 = getValue(arg2);
+            if (arg1 is IUnifiable)
+                return ((IUnifiable)arg1).unify(arg2);
+            else if (arg2 is IUnifiable)
+                return ((IUnifiable)arg2).unify(arg1);
+            else
+            {
+                // Arguments are "normal" types.
+                if (arg1.Equals(arg2))
+                    return new Succeed();
+                else
+                    return _fail;
+            }
+        }
+
+        /// <summary>
+        /// This is used for the lookup key in _factStore.
+        /// </summary>
+        public struct NameArity
+        {
+            public readonly Atom _name;
+            public readonly int _arity;
+
+            public NameArity(Atom name, int arity)
+            {
+                _name = name;
+                _arity = arity;
+            }
+
+            public override bool Equals(object obj)
+            {
+                if (obj is NameArity)
+                {
+                    NameArity nameArity = (NameArity)obj;
+                    return nameArity._name.Equals(_name) && nameArity._arity.Equals(_arity);
+                }
+                else
+                {
+                    return false;
+                }
+            }
+
+            public override int GetHashCode()
+            {
+                return _name.GetHashCode() ^ _arity.GetHashCode();
+            }
+        }
+
+        /// <summary>
+        /// Convert term to an int.
+        /// If term is a single-element List, use its first element
+        /// (to handle the char types like "a").  If can't convert, throw an exception.
+        /// </summary>
+        /// <param name="term"></param>
+        /// <returns></returns>
+        public static int convertInt(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor2 && ((Functor2)term)._name == Atom.DOT &&
+                YP.getValue(((Functor2)term)._arg2) == Atom.NIL)
+                // Assume it is a char type like "a".
+                term = YP.getValue(((Functor2)term)._arg1);
+
+            return (int)term;
+        }
+
+        /// <summary>
+        /// Convert term to a double.  This may convert an int to a double, etc.
+        /// If term is a single-element List, use its first element
+        /// (to handle the char types like "a").  If can't convert, throw an exception.
+        /// </summary>
+        /// <param name="term"></param>
+        /// <returns></returns>
+        public static double convertDouble(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor2 && ((Functor2)term)._name == Atom.DOT &&
+                YP.getValue(((Functor2)term)._arg2) == Atom.NIL)
+                // Assume it is a char type like "a".
+                term = YP.getValue(((Functor2)term)._arg1);
+
+            return Convert.ToDouble(term);
+        }
+
+        /// <summary>
+        /// If term is an integer, set intTerm.
+        /// If term is a single-element List, use its first element
+        /// (to handle the char types like "a").  Return true for success, false if can't convert.
+        /// We use a success return value because throwing an exception is inefficient.
+        /// </summary>
+        /// <param name="term"></param>
+        /// <returns></returns>
+        public static bool getInt(object term, out int intTerm)
+        {
+            term = YP.getValue(term);
+            if (term is Functor2 && ((Functor2)term)._name == Atom.DOT &&
+                YP.getValue(((Functor2)term)._arg2) == Atom.NIL)
+                // Assume it is a char type like "a".
+                term = YP.getValue(((Functor2)term)._arg1);
+
+            if (term is int)
+            {
+                intTerm = (int)term;
+                return true;
+            }
+
+            intTerm = 0;
+            return false;
+        }
+
+        public static bool equal(object x, object y)
+        {
+            x = YP.getValue(x);
+            if (x is DateTime)
+                return (DateTime)x == (DateTime)YP.getValue(y);
+            // Assume convertDouble converts an int to a double perfectly.
+            return YP.convertDouble(x) == YP.convertDouble(y);
+        }
+
+        public static bool notEqual(object x, object y)
+        {
+            x = YP.getValue(x);
+            if (x is DateTime)
+                return (DateTime)x != (DateTime)YP.getValue(y);
+            // Assume convertDouble converts an int to a double perfectly.
+            return YP.convertDouble(x) != YP.convertDouble(y);
+        }
+
+        public static bool greaterThan(object x, object y)
+        {
+            x = YP.getValue(x);
+            if (x is DateTime)
+                return (DateTime)x > (DateTime)YP.getValue(y);
+            // Assume convertDouble converts an int to a double perfectly.
+            return YP.convertDouble(x) > YP.convertDouble(y);
+        }
+
+        public static bool lessThan(object x, object y)
+        {
+            x = YP.getValue(x);
+            if (x is DateTime)
+                return (DateTime)x < (DateTime)YP.getValue(y);
+            // Assume convertDouble converts an int to a double perfectly.
+            return YP.convertDouble(x) < YP.convertDouble(y);
+        }
+
+        public static bool greaterThanOrEqual(object x, object y)
+        {
+            x = YP.getValue(x);
+            if (x is DateTime)
+                return (DateTime)x >= (DateTime)YP.getValue(y);
+            // Assume convertDouble converts an int to a double perfectly.
+            return YP.convertDouble(x) >= YP.convertDouble(y);
+        }
+
+        public static bool lessThanOrEqual(object x, object y)
+        {
+            x = YP.getValue(x);
+            if (x is DateTime)
+                return (DateTime)x <= (DateTime)YP.getValue(y);
+            // Assume convertDouble converts an int to a double perfectly.
+            return YP.convertDouble(x) <= YP.convertDouble(y);
+        }
+
+        public static object negate(object x)
+        {
+            int intX;
+            if (getInt(x, out intX))
+                return -intX;
+            return -convertDouble(x);
+        }
+
+        public static object abs(object x)
+        {
+            int intX;
+            if (getInt(x, out intX))
+                return Math.Abs(intX);
+            return Math.Abs(convertDouble(x));
+        }
+
+        public static object sign(object x)
+        {
+            int intX;
+            if (getInt(x, out intX))
+                return Math.Sign(intX);
+            return Math.Sign(convertDouble(x));
+        }
+
+        /// <summary>
+        /// The ISO standard returns an int.
+        /// </summary>
+        /// <param name="x"></param>
+        /// <returns></returns>
+        public static object floor(object x)
+        {
+            return (int)Math.Floor(convertDouble(x));
+        }
+
+        /// <summary>
+        /// The ISO standard returns an int.
+        /// </summary>
+        /// <param name="x"></param>
+        /// <returns></returns>
+        public static object truncate(object x)
+        {
+            return (int)Math.Truncate(convertDouble(x));
+        }
+
+        /// <summary>
+        /// The ISO standard returns an int.
+        /// </summary>
+        /// <param name="x"></param>
+        /// <returns></returns>
+        public static object round(object x)
+        {
+            return (int)Math.Round(convertDouble(x));
+        }
+
+        /// <summary>
+        /// The ISO standard returns an int.
+        /// </summary>
+        /// <param name="x"></param>
+        /// <returns></returns>
+        public static object ceiling(object x)
+        {
+            return (int)Math.Ceiling(convertDouble(x));
+        }
+
+        public static object sin(object x)
+        {
+            return Math.Sin(YP.convertDouble(x));
+        }
+
+        public static object cos(object x)
+        {
+            return Math.Cos(YP.convertDouble(x));
+        }
+
+        public static object atan(object x)
+        {
+            return Math.Atan(YP.convertDouble(x));
+        }
+
+        public static object exp(object x)
+        {
+            return Math.Exp(YP.convertDouble(x));
+        }
+
+        public static object log(object x)
+        {
+            return Math.Log(YP.convertDouble(x));
+        }
+
+        public static object sqrt(object x)
+        {
+            return Math.Sqrt(convertDouble(x));
+        }
+
+        public static object bitwiseComplement(object x)
+        {
+            return ~YP.convertInt(x);
+        }
+
+        public static object add(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return intX + intY;
+            return convertDouble(x) + convertDouble(y);
+        }
+
+        public static object subtract(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return intX - intY;
+            return convertDouble(x) - convertDouble(y);
+        }
+
+        public static object multiply(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return intX * intY;
+            return convertDouble(x) * convertDouble(y);
+        }
+
+        /// <summary>
+        /// Return floating point, even if both arguments are integer.
+        /// </summary>
+        /// <param name="x"></param>
+        /// <param name="y"></param>
+        /// <returns></returns>
+        public static object divide(object x, object y)
+        {
+            return convertDouble(x) / convertDouble(y);
+        }
+
+        public static object intDivide(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return intX / intY;
+            // Still allow passing a double, but treat as an int.
+            return (int)convertDouble(x) / (int)convertDouble(y);
+        }
+
+        public static object mod(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return intX % intY;
+            // Still allow passing a double, but treat as an int.
+            return (int)convertDouble(x) % (int)convertDouble(y);
+        }
+
+        public static object pow(object x, object y)
+        {
+            return Math.Pow(YP.convertDouble(x), YP.convertDouble(y));
+        }
+
+        public static object bitwiseShiftRight(object x, object y)
+        {
+            return YP.convertInt(x) >> YP.convertInt(y);
+        }
+
+        public static object bitwiseShiftLeft(object x, object y)
+        {
+            return YP.convertInt(x) << YP.convertInt(y);
+        }
+
+        public static object bitwiseAnd(object x, object y)
+        {
+            return YP.convertInt(x) & YP.convertInt(y);
+        }
+
+        public static object bitwiseOr(object x, object y)
+        {
+            return YP.convertInt(x) | YP.convertInt(y);
+        }
+
+        public static object min(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return Math.Min(intX, intY);
+            return Math.Min(convertDouble(x), convertDouble(y));
+        }
+
+        public static object max(object x, object y)
+        {
+            int intX, intY;
+            if (getInt(x, out intX) && getInt(y, out intY))
+                return Math.Max(intX, intY);
+            return Math.Max(convertDouble(x), convertDouble(y));
+        }
+
+        public static IEnumerable<bool> copy_term(object inTerm, object outTerm)
+        {
+            return YP.unify(outTerm, YP.makeCopy(inTerm, new Variable.CopyStore()));
+        }
+
+        public static void addUniqueVariables(object term, List<Variable> variableSet)
+        {
+            term = YP.getValue(term);
+            if (term is IUnifiable)
+                ((IUnifiable)term).addUniqueVariables(variableSet);
+        }
+
+        public static object makeCopy(object term, Variable.CopyStore copyStore)
+        {
+            term = YP.getValue(term);
+            if (term is IUnifiable)
+                return ((IUnifiable)term).makeCopy(copyStore);
+            else
+                // term is a "normal" type. Assume it is ground.
+                return term;
+        }
+
+        /// <summary>
+        /// Sort the array in place according to termLessThan.  This does not remove duplicates
+        /// </summary>
+        /// <param name="array"></param>
+        public static void sortArray(object[] array)
+        {
+            Array.Sort(array, YP.compareTerms);
+        }
+
+        /// <summary>
+        /// Sort the array in place according to termLessThan.  This does not remove duplicates
+        /// </summary>
+        /// <param name="array"></param>
+        public static void sortArray(List<object> array)
+        {
+            array.Sort(YP.compareTerms);
+        }
+
+        /// <summary>
+        /// Sort List according to termLessThan, remove duplicates and unify with Sorted.
+        /// </summary>
+        /// <param name="List"></param>
+        /// <param name="Sorted"></param>
+        /// <returns></returns>
+        public static IEnumerable<bool> sort(object List, object Sorted)
+        {
+            object[] array = ListPair.toArray(List);
+            if (array == null)
+                return YP.fail();
+            if (array.Length > 1)
+                sortArray(array);
+            return YP.unify(Sorted, ListPair.makeWithoutRepeatedTerms(array));
+        }
+
+
+
+        /// <summary>
+        /// Use YP.unify to unify each of the elements of the two arrays, and yield
+        /// once if they all unify.
+        /// </summary>
+        /// <param name="array1"></param>
+        /// <param name="array2"></param>
+        /// <returns></returns>
+        public static IEnumerable<bool> unifyArrays(object[] array1, object[] array2)
+        {
+            if (array1.Length != array2.Length)
+                yield break;
+
+            IEnumerator<bool>[] iterators = new IEnumerator<bool>[array1.Length];
+            bool gotMatch = true;
+            int nIterators = 0;
+            // Try to bind all the arguments.
+            for (int i = 0; i < array1.Length; ++i)
+            {
+                IEnumerator<bool> iterator = YP.unify(array1[i], array2[i]).GetEnumerator();
+                iterators[nIterators++] = iterator;
+                // MoveNext() is true if YP.unify succeeds.
+                if (!iterator.MoveNext())
+                {
+                    gotMatch = false;
+                    break;
+                }
+            }
+
+            try
+            {
+                if (gotMatch)
+                    yield return false;
+            }
+            finally
+            {
+                // Manually finalize all the iterators.
+                for (int i = 0; i < nIterators; ++i)
+                    iterators[i].Dispose();
+            }
+        }
+
+        /// <summary>
+        /// Return an iterator (which you can use in a for-in loop) which does
+        /// zero iterations.  This returns a pre-existing iterator which is
+        /// more efficient than letting the compiler generate a new one.
+        /// </summary>
+        /// <returns></returns>
+        public static IEnumerable<bool> fail()
+        {
+            return _fail;
+        }
+
+        /// <summary>
+        /// Return an iterator (which you can use in a for-in loop) which does
+        /// one iteration.  This returns a pre-existing iterator which is
+        /// more efficient than letting the compiler generate a new one.
+        /// </summary>
+        /// <returns></returns>
+        public static IEnumerable<bool> succeed()
+        {
+            return new Succeed();
+        }
+
+        /// <summary>
+        /// Return an iterator (which you can use in a for-in loop) which repeats
+        /// indefinitely.  This returns a pre-existing iterator which is
+        /// more efficient than letting the compiler generate a new one.
+        /// </summary>
+        /// <returns></returns>
+        public static IEnumerable<bool> repeat()
+        {
+            return _repeat;
+        }
+
+        public static IEnumerable<bool> univ(object Term, object List)
+        {
+            Term = YP.getValue(Term);
+            List = YP.getValue(List);
+
+            if (nonvar(Term))
+                return YP.unify(new ListPair
+                    (getFunctorName(Term), ListPair.make(getFunctorArgs(Term))), List);
+
+            Variable Name = new Variable();
+            Variable ArgList = new Variable();
+            foreach (bool l1 in new ListPair(Name, ArgList).unify(List))
+            {
+                object[] args = ListPair.toArray(ArgList);
+                if (args == null)
+                    throw new Exception("Expected a list. Got: " + ArgList.getValue());
+                if (args.Length == 0)
+                    // Return the Name, even if it is not an Atom.
+                    return YP.unify(Term, Name);
+                if (!atom(Name))
+                    throw new Exception("Expected an atom. Got: " + Name.getValue());
+
+                return YP.unify(Term, Functor.make((Atom)YP.getValue(Name), args));
+            }
+
+            return YP.fail();
+        }
+
+        public static IEnumerable<bool> functor(object Term, object FunctorName, object Arity)
+        {
+            Term = YP.getValue(Term);
+            FunctorName = YP.getValue(FunctorName);
+            Arity = YP.getValue(Arity);
+
+            if (!(Term is Variable))
+            {
+                foreach (bool l1 in YP.unify(FunctorName, getFunctorName(Term)))
+                {
+                    foreach (bool l2 in YP.unify(Arity, getFunctorArgs(Term).Length))
+                        yield return false;
+                }
+            }
+            else
+                throw new NotImplementedException("Debug: must finish functor/3");
+        }
+
+        public static IEnumerable<bool> arg(object ArgNumber, object Term, object Value)
+        {
+            if (YP.var(ArgNumber))
+                throw new NotImplementedException("Debug: must finish arg/3");
+            else
+            {
+                int argNumberInt = convertInt(ArgNumber);
+                if (argNumberInt < 0)
+                    throw new Exception("ArgNumber must be non-negative");
+                object[] termArgs = YP.getFunctorArgs(Term);
+                // Silently fail if argNumberInt is out of range.
+                if (argNumberInt >= 1 && argNumberInt <= termArgs.Length)
+                {
+                    // The first ArgNumber is at 1, not 0.
+                    foreach (bool l1 in YP.unify(Value, termArgs[argNumberInt - 1]))
+                        yield return false;
+                }
+            }
+        }
+
+        public static bool termEqual(object Term1, object Term2)
+        {
+            Term1 = YP.getValue(Term1);
+            if (Term1 is IUnifiable)
+                return ((IUnifiable)Term1).termEqual(Term2);
+            return Term1.Equals(YP.getValue(Term2));
+        }
+
+        public static bool termNotEqual(object Term1, object Term2)
+        {
+            return !termEqual(Term1, Term2);
+        }
+
+        public static bool termLessThan(object Term1, object Term2)
+        {
+            Term1 = YP.getValue(Term1);
+            Term2 = YP.getValue(Term2);
+            int term1TypeCode = getTypeCode(Term1);
+            int term2TypeCode = getTypeCode(Term2);
+            if (term1TypeCode != term2TypeCode)
+                return term1TypeCode < term2TypeCode;
+
+            // The terms are the same type code.
+            if (term1TypeCode == -2)
+            {
+                // Variable.
+                // We always check for equality first because we want to be sure 
+                //   that less than returns false if the terms are equal, in 
+                //   case that the less than check really behaves like less than or equal.
+                if ((Variable)Term1 != (Variable)Term2)
+                    // The hash code should be unique to a Variable object.
+                    return Term1.GetHashCode() < Term2.GetHashCode();
+                return false;
+            }
+            if (term1TypeCode == 0)
+                return ((Atom)Term1)._name.CompareTo(((Atom)Term2)._name) < 0;
+            if (term1TypeCode == 1)
+                return ((Functor1)Term1).lessThan((Functor1)Term2);
+            if (term1TypeCode == 2)
+                return ((Functor2)Term1).lessThan((Functor2)Term2);
+            if (term1TypeCode == 3)
+                return ((Functor3)Term1).lessThan((Functor3)Term2);
+            if (term1TypeCode == 4)
+                return ((Functor)Term1).lessThan((Functor)Term2);
+
+            // Type code is -1 for general objects.  First compare their type names.
+            // Note that this puts Double before Int32 as required by ISO Prolog.
+            string term1TypeName = Term1.GetType().ToString();
+            string term2TypeName = Term2.GetType().ToString();
+            if (term1TypeName != term2TypeName)
+                return term1TypeName.CompareTo(term2TypeName) < 0;
+
+            // The terms are the same type name.
+            if (Term1 is int)
+                return (int)Term1 < (int)Term2;
+            else if (Term1 is double)
+                return (double)Term1 < (double)Term2;
+            else if (Term1 is DateTime)
+                return (DateTime)Term1 < (DateTime)Term2;
+            else if (Term1 is String)
+                return ((String)Term1).CompareTo((String)Term2) < 0;
+            // Debug: Should we try arrays, etc.?
+
+            if (!Term1.Equals(Term2))
+                // Could be equal or greater than.
+                return Term1.GetHashCode() < Term2.GetHashCode();
+            return false;
+        }
+
+        /// <summary>
+        /// Type code is -2 if term is a Variable, 0 if it is an Atom, 
+        /// 1 if it is a Functor1, 2 if it is a Functor2, 3 if it is a Functor3, 
+        /// 4 if it is Functor.
+        /// Otherwise, type code is -1.
+        /// This does not call YP.getValue(term).
+        /// </summary>
+        /// <param name="term"></param>
+        /// <returns></returns>
+        private static int getTypeCode(object term)
+        {
+            if (term is Variable)
+                return -2;
+            else if (term is Atom)
+                return 0;
+            else if (term is Functor1)
+                return 1;
+            else if (term is Functor2)
+                return 2;
+            else if (term is Functor3)
+                return 3;
+            else if (term is Functor)
+                return 4;
+            else
+                return -1;
+        }
+
+        public static bool termLessThanOrEqual(object Term1, object Term2)
+        {
+            if (YP.termEqual(Term1, Term2))
+                return true;
+            return YP.termLessThan(Term1, Term2);
+        }
+
+        public static bool termGreaterThan(object Term1, object Term2)
+        {
+            return !YP.termLessThanOrEqual(Term1, Term2);
+        }
+
+        public static bool termGreaterThanOrEqual(object Term1, object Term2)
+        {
+            // termLessThan should ensure that it returns false if terms are equal,
+            //   so that this would return true.
+            return !YP.termLessThan(Term1, Term2);
+        }
+
+        public static int compareTerms(object Term1, object Term2)
+        {
+            if (YP.termEqual(Term1, Term2))
+                return 0;
+            else if (YP.termLessThan(Term1, Term2))
+                return -1;
+            else
+                return 1;
+        }
+
+        public static bool ground(object Term)
+        {
+            Term = YP.getValue(Term);
+            if (Term is IUnifiable)
+                return ((IUnifiable)Term).ground();
+            return true;
+        }
+
+        public static IEnumerable<bool> current_op
+            (object Priority, object Specifier, object Operator)
+        {
+            if (_operatorTable == null)
+            {
+                // Initialize.
+                _operatorTable = new List<object[]>();
+                _operatorTable.Add(new object[] { 1200, Atom.a("xfx"), Atom.a(":-") });
+                _operatorTable.Add(new object[] { 1200, Atom.a("xfx"), Atom.a("-->") });
+                _operatorTable.Add(new object[] { 1200, Atom.a("fx"), Atom.a(":-") });
+                _operatorTable.Add(new object[] { 1200, Atom.a("fx"), Atom.a("?-") });
+                _operatorTable.Add(new object[] { 1100, Atom.a("xfy"), Atom.a(";") });
+                _operatorTable.Add(new object[] { 1050, Atom.a("xfy"), Atom.a("->") });
+                _operatorTable.Add(new object[] { 1000, Atom.a("xfy"), Atom.a(",") });
+                _operatorTable.Add(new object[] { 900, Atom.a("fy"), Atom.a("\\+") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("\\=") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("==") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("\\==") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@<") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@=<") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@>") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("@>=") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=..") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("is") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=:=") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=\\=") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("<") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a("=<") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a(">") });
+                _operatorTable.Add(new object[] { 700, Atom.a("xfx"), Atom.a(">=") });
+                _operatorTable.Add(new object[] { 600, Atom.a("xfy"), Atom.a(":") });
+                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("+") });
+                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("-") });
+                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("/\\") });
+                _operatorTable.Add(new object[] { 500, Atom.a("yfx"), Atom.a("\\/") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("*") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("/") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("//") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("rem") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("mod") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a("<<") });
+                _operatorTable.Add(new object[] { 400, Atom.a("yfx"), Atom.a(">>") });
+                _operatorTable.Add(new object[] { 200, Atom.a("xfx"), Atom.a("**") });
+                _operatorTable.Add(new object[] { 200, Atom.a("xfy"), Atom.a("^") });
+                _operatorTable.Add(new object[] { 200, Atom.a("fy"), Atom.a("-") });
+                _operatorTable.Add(new object[] { 200, Atom.a("fy"), Atom.a("\\") });
+                // Debug: This is hacked in to run the Prolog test suite until we implement op/3.
+                _operatorTable.Add(new object[] { 20, Atom.a("xfx"), Atom.a("<--") });
+            }
+
+            object[] args = new object[] { Priority, Specifier, Operator };
+            foreach (object[] answer in _operatorTable)
+            {
+                foreach (bool l1 in YP.unifyArrays(args, answer))
+                    yield return false;
+            }
+        }
+
+        public static IEnumerable<bool> atom_length(object atom, object Length)
+        {
+            return YP.unify(Length, ((Atom)YP.getValue(atom))._name.Length);
+        }
+
+        public static IEnumerable<bool> atom_concat(object Start, object End, object Whole)
+        {
+            // Debug: Should implement for var(Start) which is a kind of search.
+            // Debug: Should we try to preserve the _declaringClass?
+            return YP.unify(Whole, Atom.a(((Atom)YP.getValue(Start))._name +
+                ((Atom)YP.getValue(End))._name));
+        }
+
+        public static IEnumerable<bool> sub_atom
+            (object atom, object Before, object Length, object After, object Sub_atom)
+        {
+            // Debug: Should implement for var(atom) which is a kind of search.
+            // Debug: Should we try to preserve the _declaringClass?
+            Atom atomAtom = (Atom)YP.getValue(atom);
+            int beforeInt = YP.convertInt(Before);
+            int lengthInt = YP.convertInt(Length);
+            if (beforeInt < 0)
+                throw new Exception("Before must be non-negative");
+            if (lengthInt < 0)
+                throw new Exception("Length must be non-negative");
+            int afterInt = atomAtom._name.Length - (beforeInt + lengthInt);
+            if (afterInt >= 0)
+            {
+                foreach (bool l1 in YP.unify(After, afterInt))
+                {
+                    foreach (bool l2 in YP.unify
+                        (Sub_atom, Atom.a(atomAtom._name.Substring(beforeInt, lengthInt))))
+                        yield return false;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> atom_codes(object atom, object List)
+        {
+            atom = YP.getValue(atom);
+            List = YP.getValue(List);
+
+            if (nonvar(atom))
+            {
+                string name = ((Atom)atom)._name;
+                object codeList = Atom.NIL;
+                // Start from the back to make the list.
+                for (int i = name.Length - 1; i >= 0; --i)
+                    codeList = new ListPair((int)name[i], codeList);
+                return YP.unify(List, codeList);
+            }
+            {
+                object[] codeArray = ListPair.toArray(List);
+                char[] charArray = new char[codeArray.Length];
+                for (int i = 0; i < codeArray.Length; ++i)
+                    charArray[i] = (char)YP.convertInt(codeArray[i]);
+                return YP.unify(atom, Atom.a(new String(charArray)));
+            }
+        }
+
+        public static IEnumerable<bool> number_codes(object number, object List)
+        {
+            number = YP.getValue(number);
+            List = YP.getValue(List);
+
+            if (nonvar(number))
+            {
+                string numberString = null;
+                // Try converting to an int first.
+                int intNumber;
+                if (YP.getInt(number, out intNumber))
+                    numberString = intNumber.ToString();
+                else
+                    numberString = YP.doubleToString(YP.convertDouble(number));
+
+                object codeList = Atom.NIL;
+                // Start from the back to make the list.
+                for (int i = numberString.Length - 1; i >= 0; --i)
+                    codeList = new ListPair((int)numberString[i], codeList);
+                return YP.unify(List, codeList);
+            }
+            {
+                object[] codeArray = ListPair.toArray(List);
+                char[] charArray = new char[codeArray.Length];
+                for (int i = 0; i < codeArray.Length; ++i)
+                    charArray[i] = (char)YP.convertInt(codeArray[i]);
+                String numberString = new String(charArray);
+                // Debug: Is there a way in C# to ask if a string parses as int without throwing an exception?
+                try
+                {
+                    // Try an int first.
+                    return YP.unify(number, Convert.ToInt32(numberString));
+                }
+                catch (FormatException) { }
+                return YP.unify(number, Convert.ToDouble(numberString));
+            }
+        }
+
+        /// <summary>
+        /// If term is an Atom or functor type, return its name.
+        /// Otherwise, return term.
+        /// </summary>
+        /// <param name="term"></param>
+        /// <returns></returns>
+        public static object getFunctorName(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor1)
+                return ((Functor1)term)._name;
+            else if (term is Functor2)
+                return ((Functor2)term)._name;
+            else if (term is Functor3)
+                return ((Functor3)term)._name;
+            else if (term is Functor)
+                return ((Functor)term)._name;
+            else
+                return term;
+        }
+
+        /// <summary>
+        /// If term is an Atom or functor type, return an array of its args.
+        /// Otherwise, return an empty array.
+        /// </summary>
+        /// <param name="term"></param>
+        /// <returns></returns>
+        public static object[] getFunctorArgs(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor1)
+            {
+                Functor1 functor = (Functor1)term;
+                return new object[] { functor._arg1 };
+            }
+            else if (term is Functor2)
+            {
+                Functor2 functor = (Functor2)term;
+                return new object[] { functor._arg1, functor._arg2 };
+            }
+            else if (term is Functor3)
+            {
+                Functor3 functor = (Functor3)term;
+                return new object[] { functor._arg1, functor._arg2, functor._arg3 };
+            }
+            else if (term is Functor) {
+                Functor functor = (Functor)term;
+                return functor._args;
+            }
+            else
+                return new object[0];
+        }
+
+        public static bool var(object Term)
+        {
+            return YP.getValue(Term) is Variable;
+        }
+
+        public static bool nonvar(object Term)
+        {
+            return !YP.var(Term);
+        }
+
+        public static bool atom(object Term)
+        {
+            return YP.getValue(Term) is Atom;
+        }
+
+        public static bool number(object Term)
+        {
+            Term = getValue(Term);
+            // Debug: Should exhaustively check for all number types.
+            return Term is int || Term is double;
+        }
+
+        public static bool atomic(object Term)
+        {
+            return YP.atom(Term) || YP.number(Term);
+        }
+
+        public static bool compound(object Term)
+        {
+            Term = getValue(Term);
+            return Term is Functor1 || Term is Functor2 || Term is Functor3 || Term is Functor;
+        }
+
+        public static void see(object input)
+        {
+            input = YP.getValue(input);
+            if (input is TextReader)
+            {
+                _inputStream = (TextReader)input;
+                return;
+            }
+            else if (input is Atom)
+            {
+                _inputStream = new StreamReader(((Atom)input)._name);
+                return;
+            }
+            else if (input is String)
+            {
+                _inputStream = new StreamReader((String)input);
+                return;
+            }
+            else
+                throw new InvalidOperationException("Can't open stream for " + input);
+        }
+
+        public static void seen()
+        {
+            if (_inputStream == Console.In)
+                return;
+            _inputStream.Close();
+            _inputStream = Console.In;
+        }
+
+        public static void tell(object output)
+        {
+            output = YP.getValue(output);
+            if (output is TextWriter)
+            {
+                _outputStream = (TextWriter)output;
+                return;
+            }
+            else if (output is Atom)
+            {
+                _outputStream = new StreamWriter(((Atom)output)._name);
+                return;
+            }
+            else if (output is String)
+            {
+                _outputStream = new StreamWriter((String)output);
+                return;
+            }
+            else
+                throw new InvalidOperationException("Can't open stream for " + output);
+        }
+
+        public static void told()
+        {
+            if (_outputStream == Console.Out)
+                return;
+            _outputStream.Close();
+            _outputStream = Console.Out;
+        }
+
+        public static void write(object x)
+        {
+            x = YP.getValue(x);
+            if (x is double)
+                _outputStream.Write(doubleToString((double)x));
+            else
+                _outputStream.Write(x.ToString());
+        }
+
+        /// <summary>
+        /// Format x as a string, making sure that it will parse as an int later.  I.e., for 1.0, don't just
+        /// use "1" which will parse as an int.
+        /// </summary>
+        /// <param name="x"></param>
+        /// <returns></returns>
+        private static string doubleToString(double x)
+        {
+            string xString = x.ToString();
+            // Debug: Is there a way in C# to ask if a string parses as int without throwing an exception?
+            try
+            {
+                Convert.ToInt32(xString);
+                // The string will parse as an int, not a double, so re-format so that it does.
+                // Use float if possible, else exponential if it would be too big.
+                return x.ToString(x >= 100000.0 ? "E1" : "f1");
+            }
+            catch (FormatException)
+            {
+                // Assume it will parse as a double.
+            }
+            return xString;
+        }
+
+        public static void put_code(object x)
+        {
+            _outputStream.Write((char)YP.convertInt(x));
+        }
+
+        public static void nl()
+        {
+            _outputStream.WriteLine();
+        }
+
+        public static IEnumerable<bool> get_code(object code)
+        {
+            return YP.unify(code, _inputStream.Read());
+        }
+
+        public static void assertFact(Atom name, object[] values)
+        {
+            NameArity nameArity = new NameArity(name, values.Length);
+            List<IClause> clauses;
+            IndexedAnswers indexedAnswers;
+            if (!_predicatesStore.TryGetValue(nameArity, out clauses))
+            {
+                // Create an IndexedAnswers as the first clause of the predicate.                
+                _predicatesStore[nameArity] = (clauses = new List<IClause>());
+                clauses.Add(indexedAnswers = new IndexedAnswers());
+            }
+            else
+            {
+                indexedAnswers = clauses[clauses.Count - 1] as IndexedAnswers;
+                if (indexedAnswers == null)
+                    // The latest clause is not an IndexedAnswers, so add one.
+                    clauses.Add(indexedAnswers = new IndexedAnswers());
+            }
+
+            indexedAnswers.addAnswer(values);
+        }
+
+        public static IEnumerable<bool> matchFact(Atom name, object[] arguments)
+        {
+            List<IClause> clauses;
+            if (!_predicatesStore.TryGetValue(new NameArity(name, arguments.Length), out clauses))
+                throw new UndefinedPredicateException
+                    ("Undefined fact: " + name + "/" + arguments.Length, name, 
+                    arguments.Length);
+
+            if (clauses.Count == 1)
+                // Usually there is only one clause, so return it without needing to wrap it in an iterator.
+                return clauses[0].match(arguments);
+            else
+                return matchAllClauses(clauses, arguments);
+        }
+
+        /// <summary>
+        /// Call match(arguments) for each IClause in clauses.  We make this a separate
+        /// function so that matchFact itself does not need to be an iterator object.
+        /// </summary>
+        /// <param name="clauses"></param>
+        /// <param name="arguments"></param>
+        /// <returns></returns>
+        private static IEnumerable<bool> matchAllClauses(List<IClause> clauses, object[] arguments)
+        {
+            foreach (IClause clause in clauses)
+            {
+                foreach (bool lastCall in clause.match(arguments))
+                    yield return false;
+            }
+        }
+
+        public static void retractFact(Atom name, object[] arguments)
+        {
+            NameArity nameArity = new NameArity(name, arguments.Length);
+            List<IClause> clauses;
+            if (!_predicatesStore.TryGetValue(nameArity, out clauses))
+                // Can't find, so ignore.
+                return;
+
+            foreach (object arg in arguments)
+            {
+                if (!YP.var(arg))
+                    throw new InvalidOperationException("All arguments must be unbound");
+            }
+            // Set to a fresh empty IndexedAnswers.
+            _predicatesStore[nameArity] = (clauses = new List<IClause>());
+            clauses.Add(new IndexedAnswers());
+        }
+
+        public static IEnumerable<bool> current_predicate(object NameSlashArity)
+        {
+            NameSlashArity = YP.getValue(NameSlashArity);
+            // First check if Name and Arity are nonvar so we can do a direct lookup.
+            if (YP.ground(NameSlashArity))
+            {
+                if (NameSlashArity is Functor2)
+                {
+                    Functor2 NameArityFunctor = (Functor2)NameSlashArity;
+                    if (NameArityFunctor._name == Atom.SLASH)
+                    {
+                        if (_predicatesStore.ContainsKey(new NameArity
+                             ((Atom)YP.getValue(NameArityFunctor._arg1),
+                              (int)YP.getValue(NameArityFunctor._arg2))))
+                            // The predicate is defined.
+                            yield return false;
+                    }
+                }
+                yield break;
+            }
+
+            foreach (NameArity key in _predicatesStore.Keys)
+            {
+                foreach (bool l1 in YP.unify
+                    (new Functor2(Atom.SLASH, key._name, key._arity), NameSlashArity))
+                    yield return false;
+            }
+        }
+
+        /// <summary>
+        /// Use YP.getFunctorName(Goal) and invoke the static method of this name in the 
+        /// declaringClass, using arguments from YP.getFunctorArgs(Goal).
+        /// Note that Goal must be a simple functor, not a complex expression.
+        /// If not found, this throws UndefinedPredicateException.
+        /// </summary>
+        /// <param name="Goal"></param>
+        /// <param name="contextClass">the class for looking up default function references</param>
+        /// <returns></returns>
+        public static IEnumerable<bool> getIterator(object Goal, Type declaringClass)
+        {
+#if true
+            List<Variable> variableSetList = new List<Variable>();
+            addUniqueVariables(Goal, variableSetList);
+            Variable[] variableSet = variableSetList.ToArray();
+            object Head = Functor.make("function", variableSet);
+
+            object Rule = new Functor2(Atom.RULE, Head, Goal);
+            object RuleList = ListPair.make(new Functor2(Atom.F, Rule, Atom.NIL));
+            StringWriter functionCode = new StringWriter();
+            TextWriter saveOutputStream = _outputStream;
+            try
+            {
+                tell(functionCode);
+                Variable FunctionCode = new Variable();
+                foreach (bool l1 in YPCompiler.makeFunctionPseudoCode(RuleList, FunctionCode))
+                {
+                    if (YP.termEqual(FunctionCode, Atom.a("getDeclaringClass")))
+                        // Ignore getDeclaringClass since we have access to the one passed in.
+                        continue;
+
+                    // Debug: should check if FunctionCode is a single call.
+                    YPCompiler.convertFunctionCSharp(FunctionCode);
+                }
+                told();
+            }
+            finally
+            {
+                // Restore after calling tell.
+                _outputStream = saveOutputStream;
+            }
+            return YPCompiler.compileAnonymousFunction
+                (functionCode.ToString(), variableSet.Length, declaringClass).match(variableSet);
+#else
+            Goal = YP.getValue(Goal);
+            Atom name;
+            object[] args;
+            while (true)
+            {
+                name = (Atom)YP.getFunctorName(Goal);
+                args = YP.getFunctorArgs(Goal);
+                if (name == Atom.HAT && args.Length == 2)
+                    // Assume this is called from a bagof operation.  Skip the leading qualifiers.
+                    Goal = YP.getValue(((Functor2)Goal)._arg2);
+                else
+                    break;
+            }
+            try
+            {
+                return (IEnumerable<bool>)declaringClass.InvokeMember
+                  (name._name, BindingFlags.InvokeMethod, null, null, args);
+            }
+            catch (TargetInvocationException exception)
+            {
+                throw exception.InnerException;
+            }
+            catch (MissingMethodException)
+            {
+                throw new UndefinedPredicateException
+                    ("Cannot find predicate function: " + name + "/" + args.Length + " in " +
+                     declaringClass.FullName, name, args.Length);
+            }
+#endif
+        }
+
+        public static void throwException(object Term)
+        {
+            throw new PrologException(Term);
+        }
+
+        /// <summary>
+        /// script_event calls hosting script with events as a callback method.
+        /// </summary>
+        /// <param name="script_event"></param>
+        /// <param name="script_params"></param>
+        /// <returns></returns>
+        public static void script_event(object script_event, object script_params)
+        {
+            string function = ((Atom)YP.getValue(script_event))._name;
+            object[] array = ListPair.toArray(script_params);
+            if (array == null)
+                return; // YP.fail();
+            if (array.Length > 1)
+            {
+                //m_CmdManager.m_ScriptEngine.m_EventQueManager.AddToScriptQueue
+                //(localID, itemID, function, array);
+                // sortArray(array);
+            }
+            //return YP.unify(Sorted, ListPair.makeWithoutRepeatedTerms(array));
+        }
+
+        /// <summary>
+        /// An enumerator that does zero loops.
+        /// </summary>
+        private class Fail : IEnumerator<bool>, IEnumerable<bool>
+        {
+            public bool MoveNext()
+            {
+                return false;
+            }
+
+            public IEnumerator<bool> GetEnumerator()
+            {
+                return (IEnumerator<bool>)this;
+            }
+
+            IEnumerator IEnumerable.GetEnumerator()
+            {
+                return GetEnumerator();
+            }
+
+            public bool Current
+            {
+                get { return true; }
+            }
+
+            object IEnumerator.Current
+            {
+                get { return true; }
+            }
+
+            public void Dispose()
+            {
+            }
+
+            public void Reset()
+            {
+                throw new NotImplementedException();
+            }
+        }
+
+        /// <summary>
+        /// An enumerator that does one iteration.
+        /// </summary>
+        private class Succeed : IEnumerator<bool>, IEnumerable<bool>
+        {
+            private bool _didIteration = false;
+
+            public bool MoveNext()
+            {
+                if (!_didIteration)
+                {
+                    _didIteration = true;
+                    return true;
+                }
+                else
+                    return false;
+            }
+
+            public IEnumerator<bool> GetEnumerator()
+            {
+                return (IEnumerator<bool>)this;
+            }
+
+            IEnumerator IEnumerable.GetEnumerator()
+            {
+                return GetEnumerator();
+            }
+
+            public bool Current
+            {
+                get { return false; }
+            }
+
+            object IEnumerator.Current
+            {
+                get { return false; }
+            }
+
+            public void Dispose()
+            {
+            }
+
+            public void Reset()
+            {
+                throw new NotImplementedException();
+            }
+        }
+
+        /// <summary>
+        /// An enumerator that repeats forever.
+        /// </summary>
+        private class Repeat : IEnumerator<bool>, IEnumerable<bool>
+        {
+            public bool MoveNext()
+            {
+                return true;
+            }
+
+            public IEnumerator<bool> GetEnumerator()
+            {
+                return (IEnumerator<bool>)this;
+            }
+
+            IEnumerator IEnumerable.GetEnumerator()
+            {
+                return GetEnumerator();
+            }
+
+            public bool Current
+            {
+                get { return false; }
+            }
+
+            object IEnumerator.Current
+            {
+                get { return false; }
+            }
+
+            public void Dispose()
+            {
+            }
+
+            public void Reset()
+            {
+                throw new NotImplementedException();
+            }
+        }
+    }
+}
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YPCompiler.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YPCompiler.cs
index 923906b..a0a92b6 100644
--- a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YPCompiler.cs
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/YPCompiler.cs
@@ -1,5247 +1,5247 @@
-/*

- * Copyright (C) 2007-2008, Jeff Thompson

- * 

- * All rights reserved.

- * 

- * Redistribution and use in source and binary forms, with or without 

- * modification, are permitted provided that the following conditions are met:

- * 

- *     * Redistributions of source code must retain the above copyright 

- *       notice, this list of conditions and the following disclaimer.

- *     * Redistributions in binary form must reproduce the above copyright 

- *       notice, this list of conditions and the following disclaimer in the 

- *       documentation and/or other materials provided with the distribution.

- *     * Neither the name of the copyright holder nor the names of its contributors 

- *       may be used to endorse or promote products derived from this software 

- *       without specific prior written permission.

- * 

- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS

- * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

- * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR

- * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR

- * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,

- * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

- * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR

- * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF

- * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING

- * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

- */

-

-using System;

-using System.IO;

-using System.Collections;

-using System.Collections.Generic;

-using System.Text;

-using System.CodeDom.Compiler;

-

-namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog

-{

-    public class YPCompiler

-    {

-        private class CompilerState

-        {

-            public IndexedAnswers _pred = new IndexedAnswers();

-            public Dictionary<YP.NameArity, Atom> _moduleForNameArity = new Dictionary<YP.NameArity, Atom>();

-            public int _gensymCounter;

-            public bool _useFinalCutCode;

-            public Variable _finalCutCode;

-            public bool _codeUsesYield;

-            public Atom _determinism;

-            // a list of '='(Name, Variable)

-            public List<object> _variableNames;

-

-            // Make these static functions that explicitly take the State so Prolog can call it.

-

-            /// <summary>

-            /// Make a new CompilerState and bind it to State.

-            /// </summary>

-            /// <param name="State"></param>

-            /// <returns></returns>

-            public static IEnumerable<bool> make(object State)

-            {

-                return YP.unify(State, new CompilerState());

-            }

-

-            public static void assertPred(object State, object Pred, object Determinism)

-            {

-                State = YP.getValue(State);

-                object functorName = YP.getFunctorName(Pred);

-                object[] functorArgs = YP.getFunctorArgs(Pred);

-                // Debug: Should check if it's already asserted and is the same.

-                ((CompilerState)State)._pred.addAnswer

-                    (new object[] { functorName, functorArgs.Length, Pred, YP.getValue(Determinism) });

-            }

-

-            public static void assertModuleForNameArity(object State, object Name, object Arity, object Module)

-            {

-                State = YP.getValue(State);

-                Name = YP.getValue(Name);

-                Arity = YP.getValue(Arity);

-                Module = YP.getValue(Module);

-                // If the Module Atom comes from the parser, it always has null _declaringClass.

-                if (Module is Atom && ((Atom)Module)._module == null && Name is Atom && Arity is int)

-                {

-                    // Replace a previous entry if it exists.

-                    ((CompilerState)State)._moduleForNameArity[new YP.NameArity((Atom)Name, (int)Arity)] =

-                        (Atom)Module;

-                }

-            }

-

-            public static void startFunction(object State, object Head)

-            {

-                State = YP.getValue(State);

-                ((CompilerState)State)._gensymCounter = 0;

-                ((CompilerState)State)._useFinalCutCode = false;

-                ((CompilerState)State)._finalCutCode = new Variable();

-                ((CompilerState)State)._codeUsesYield = false;

-                if (CompilerState.isDetNoneOut(State, Head))

-                    ((CompilerState)State)._determinism = Atom.a("detNoneOut");

-                else if (CompilerState.isSemidetNoneOut(State, Head))

-                    ((CompilerState)State)._determinism = Atom.a("semidetNoneOut");

-                else

-                    ((CompilerState)State)._determinism = Atom.a("nondet");

-            }

-

-            public static void setCodeUsesYield(object State)

-            {

-                State = YP.getValue(State);

-                ((CompilerState)State)._codeUsesYield = true;

-            }

-

-            public static bool codeUsesYield(object State)

-            {

-                State = YP.getValue(State);

-                return ((CompilerState)State)._codeUsesYield;

-            }

-

-            public static bool determinismEquals(object State, object Term)

-            {

-                State = YP.getValue(State);

-                return YP.termEqual(((CompilerState)State)._determinism, Term);

-            }

-

-            /// <summary>

-            /// Set _variableNames to a new list of (Name = Variable) for each unique variable in rule.

-            /// If the variable is in variableNameSuggestions, use it, otherwise use x1, x2, etc.

-            /// </summary>

-            /// <param name="State"></param>

-            /// <param name="rule"></param>

-            /// <param name="variableNameSuggestions"></param>

-            public static void newVariableNames(object State, object Rule, object VariableNameSuggestions)

-            {

-                State = YP.getValue(State);

-                List<Variable> variablesSet = new List<Variable>();

-                YP.addUniqueVariables(Rule, variablesSet);

-

-                ((CompilerState)State)._variableNames = new List<object>();

-                int xCounter = 0;

-                foreach (Variable variable in variablesSet)

-                    ((CompilerState)State)._variableNames.Add

-                        (new Functor2(Atom.a("="), makeVariableName(variable, VariableNameSuggestions, ++xCounter),

-                                      variable));

-            }

-

-            private static object makeVariableName(object variable, object variableNameSuggestions, int xCounter)

-            {

-                // Debug: should require named variables to start with _ or capital. Should

-                //   check for duplicates and clashes with keywords.

-                for (object element = YP.getValue(variableNameSuggestions);

-                     element is Functor2 && ((Functor2)element)._name == Atom.DOT;

-                     element = YP.getValue(((Functor2)element)._arg2))

-                {

-                    object suggestionPair = YP.getValue(((Functor2)element)._arg1);

-                    if (sameVariable(variable, ((Functor2)suggestionPair)._arg2))

-                    {

-                        Atom suggestion = (Atom)YP.getValue(((Functor2)suggestionPair)._arg1);

-                        if (suggestion.Equals(Atom.a("Atom")))

-                            suggestion = Atom.a("Atom_1");

-                        if (suggestion.Equals(Atom.a("Variable")))

-                            suggestion = Atom.a("Variable_1");

-                        if (suggestion.Equals(Atom.a("Functor")))

-                            suggestion = Atom.a("Functor_1");

-                        return suggestion;

-                    }

-                }

-

-                return Atom.a("x" + xCounter);

-            }

-

-            /// <summary>

-            /// Unify Result with the name assigned by CompilerState.newVariableNames in State._variableNames

-            ///   for variable.

-            /// </summary>

-            /// <param name="variable">a Variable</param>

-            /// <param name="State"></param>

-            /// <param name="Result">the assigned Name</param>

-            public static IEnumerable<bool> getVariableName(object State, object variable, object Result)

-            {

-                State = YP.getValue(State);

-                foreach (object variableInfo in ((CompilerState)State)._variableNames)

-                {

-                    if (variableInfo is Functor2 && ((Functor2)variableInfo)._name.Equals(Atom.a("=")))

-                    {

-                        if (sameVariable(variable, ((Functor2)variableInfo)._arg2))

-                            return YP.unify(Result, ((Functor2)variableInfo)._arg1);

-                    }

-                }

-

-                // We set up names for all unique variables, so this should never happen.

-                throw new PrologException(Atom.a("Can't find entry in _variableNames"));

-            }

-

-            public static IEnumerable<bool> variableNamesList(object State, object VariableNamesList)

-            {

-                State = YP.getValue(State);

-                return YP.unify(VariableNamesList, ListPair.make(((CompilerState)State)._variableNames));

-            }

-

-            public static IEnumerable<bool> gensym(object State, object Base, object Symbol)

-            {

-                State = YP.getValue(State);

-                return YP.unify(Symbol, Atom.a(Base.ToString() + ++((CompilerState)State)._gensymCounter));

-            }

-

-            public static bool isDetNoneOut(object State, object Term)

-            {

-                State = YP.getValue(State);

-                object functorName = YP.getFunctorName(Term);

-                object[] functorArgs = YP.getFunctorArgs(Term);

-

-                Variable pred = new Variable();

-                foreach (bool l1 in ((CompilerState)State)._pred.match

-                    (new object[] { functorName, functorArgs.Length, pred, Atom.a("det") }))

-                {

-                    if (CompilerState.isNoneOut(YP.getFunctorArgs(pred.getValue())))

-                    {

-                        return true;

-                    }

-                }

-

-                return false;

-            }

-

-            public static bool isSemidetNoneOut(object State, object Term)

-            {

-                State = YP.getValue(State);

-                object functorName = YP.getFunctorName(Term);

-                object[] functorArgs = YP.getFunctorArgs(Term);

-

-                Variable pred = new Variable();

-                foreach (bool l1 in ((CompilerState)State)._pred.match

-                    (new object[] { functorName, functorArgs.Length, pred, Atom.a("semidet") }))

-                {

-                    if (CompilerState.isNoneOut(YP.getFunctorArgs(pred.getValue())))

-                    {

-                        return true;

-                    }

-                }

-

-                return false;

-            }

-

-            /// <summary>

-            /// Return false if any of args is out, otherwise true.

-            /// args is an array of ::(Type,Mode) where Mode is in or out.

-            /// </summary>

-            /// <param name="args"></param>

-            /// <returns></returns>

-            private static bool isNoneOut(object[] args)

-            {

-                foreach (object arg in args)

-                {

-                    if (arg is Functor2 && ((Functor2)arg)._name == Atom.a("::") &&

-                        ((Functor2)arg)._arg2 == Atom.a("out"))

-                        return false;

-                }

-                return true;

-            }

-

-            public static bool nameArityHasModule(object State, object Name, object Arity, object Module)

-            {

-                State = YP.getValue(State);

-                Name = YP.getValue(Name);

-                Arity = YP.getValue(Arity);

-                Module = YP.getValue(Module);

-                if (Name is Atom && Arity is int)

-                {

-                    Atom FoundModule;

-                    if (!((CompilerState)State)._moduleForNameArity.TryGetValue

-                         (new YP.NameArity((Atom)Name, (int)Arity), out FoundModule))

-                        return false;

-                    return FoundModule == Module;

-                }

-                return false;

-            }

-        }

-

-        /// <summary>

-        /// Use CodeDomProvider to compile the functionCode and return a YP.IClause.

-        /// The function name must be "function" and have nArgs arguments.

-        /// </summary>

-        /// <param name="functionCode">the code for the iterator, such as

-        /// "public static IEnumerable<bool> function() { yield return false; }"

-        /// </param>

-        /// <param name="nArgs">the number of args in the function</param>

-        /// <param name="declaringClass">if not null, then use the functionCode inside a class which

-        /// inherits from contextClass, so that references in functionCode to methods in declaringClass don't

-        /// have to be qualified</param>

-        /// <returns>a new YP.IClause object on which you can call match(object[] args) where

-        /// args length is nArgs</returns>

-        public static YP.IClause compileAnonymousFunction(string functionCode, int nArgs, Type declaringClass)

-        {

-            CompilerParameters parameters = new CompilerParameters();

-            // This gets the location of the System assembly.

-            parameters.ReferencedAssemblies.Add(typeof(System.Int32).Assembly.Location);

-            // This gets the location of this assembly which also has YieldProlog.YP, etc.

-            parameters.ReferencedAssemblies.Add(typeof(YPCompiler).Assembly.Location);

-            if (declaringClass != null)

-                parameters.ReferencedAssemblies.Add(declaringClass.Assembly.Location);

-            parameters.GenerateInMemory = true;

-

-            StringBuilder sourceCode = new StringBuilder();

-            sourceCode.Append(@"

-using System;

-using System.Collections.Generic;

-using YieldProlog;

-

-namespace Temporary {

-  public class Temporary : YP.IClause {

-    public class Inner" + (declaringClass == null ? "" : " : " + declaringClass.FullName) + @" {

-");

-            sourceCode.Append(functionCode);

-            // Basically, match applies the args to function.

-            sourceCode.Append(@"

-    }

-    public IEnumerable<bool> match(object[] args) {

-      return Inner.function(");

-            if (nArgs >= 1)

-                sourceCode.Append("args[0]");

-            for (int i = 1; i < nArgs; ++i)

-                sourceCode.Append(", args[" + i + "]");

-            sourceCode.Append(@");

-    }

-  }

-}

-");

-

-            CompilerResults results = CodeDomProvider.CreateProvider

-                ("CSharp").CompileAssemblyFromSource(parameters, sourceCode.ToString());

-            if (results.Errors.Count > 0)

-                throw new Exception("Error evaluating code: " + results.Errors[0]);

-

-            // Return a new Temporary.Temporary object.

-            return (YP.IClause)results.CompiledAssembly.GetType

-                ("Temporary.Temporary").GetConstructor(Type.EmptyTypes).Invoke(null);

-        }

-

-        // Compiler output follows.

-

-        class YPInnerClass { }

-        static Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }

-

-        public static void repeatWrite(object arg1, object N)

-        {

-            {

-                object _Value = arg1;

-                if (YP.termEqual(N, 0))

-                {

-                    return;

-                }

-            }

-            {

-                object Value = arg1;

-                Variable NextN = new Variable();

-                YP.write(Value);

-                foreach (bool l2 in YP.unify(NextN, YP.subtract(N, 1)))

-                {

-                    repeatWrite(Value, NextN);

-                    return;

-                }

-            }

-        }

-

-        public static bool sameVariable(object Variable1, object Variable2)

-        {

-            {

-                if (YP.var(Variable1))

-                {

-                    if (YP.var(Variable2))

-                    {

-                        if (YP.termEqual(Variable1, Variable2))

-                        {

-                            return true;

-                        }

-                    }

-                }

-            }

-            return false;

-        }

-

-        public static IEnumerable<bool> makeFunctionPseudoCode(object RuleList, object FunctionCode)

-        {

-            {

-                Variable State = new Variable();

-                foreach (bool l2 in CompilerState.make(State))

-                {

-                    CompilerState.assertPred(State, Atom.a(@"nl"), Atom.a(@"det"));

-                    CompilerState.assertPred(State, new Functor1(@"write", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"det"));

-                    CompilerState.assertPred(State, new Functor1(@"put_code", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"det"));

-                    CompilerState.assertPred(State, new Functor1(@"throw", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"det"));

-                    CompilerState.assertPred(State, new Functor1(@"var", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor1(@"nonvar", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor1(@"atom", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor1(@"number", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor2(@"==", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor2(@"\==", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor2(@"@<", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor2(@"@=<", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor2(@"@>", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    CompilerState.assertPred(State, new Functor2(@"@>=", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));

-                    processCompilerDirectives(RuleList, State);

-                    foreach (bool l3 in YP.unify(FunctionCode, Atom.a(@"getDeclaringClass")))

-                    {

-                        yield return false;

-                    }

-                    foreach (bool l3 in makeFunctionPseudoCode3(RuleList, State, FunctionCode))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static void processCompilerDirectives(object arg1, object arg2)

-        {

-            {

-                object _State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                object State = arg2;

-                Variable Pred = new Variable();

-                Variable Determinism = new Variable();

-                Variable x3 = new Variable();

-                Variable RestRules = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor1(@":-", new Functor1(@"pred", new Functor2(@"is", Pred, Determinism))), x3), RestRules)))

-                {

-                    CompilerState.assertPred(State, Pred, Determinism);

-                    processCompilerDirectives(RestRules, State);

-                    return;

-                }

-            }

-            {

-                object State = arg2;

-                Variable Module = new Variable();

-                Variable PredicateList = new Variable();

-                Variable x3 = new Variable();

-                Variable RestRules = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor1(@":-", new Functor2(@"import", Module, PredicateList)), x3), RestRules)))

-                {

-                    foreach (bool l3 in importPredicateList(State, Module, PredicateList))

-                    {

-                        processCompilerDirectives(RestRules, State);

-                        return;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable x1 = new Variable();

-                Variable x2 = new Variable();

-                Variable RestRules = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor1(@":-", x1), x2), RestRules)))

-                {

-                    processCompilerDirectives(RestRules, State);

-                    return;

-                }

-            }

-            {

-                object State = arg2;

-                Variable Head = new Variable();

-                Variable _Body = new Variable();

-                Variable x3 = new Variable();

-                Variable RestRules = new Variable();

-                Variable Name = new Variable();

-                Variable Arity = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor2(@":-", Head, _Body), x3), RestRules)))

-                {

-                    foreach (bool l3 in YP.functor(Head, Name, Arity))

-                    {

-                        CompilerState.assertModuleForNameArity(State, Name, Arity, Atom.a(@""));

-                        processCompilerDirectives(RestRules, State);

-                        return;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable Fact = new Variable();

-                Variable x2 = new Variable();

-                Variable RestRules = new Variable();

-                Variable Name = new Variable();

-                Variable Arity = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", Fact, x2), RestRules)))

-                {

-                    foreach (bool l3 in YP.functor(Fact, Name, Arity))

-                    {

-                        CompilerState.assertModuleForNameArity(State, Name, Arity, Atom.a(@""));

-                        processCompilerDirectives(RestRules, State);

-                        return;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable x1 = new Variable();

-                Variable RestRules = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, RestRules)))

-                {

-                    processCompilerDirectives(RestRules, State);

-                    return;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> importPredicateList(object arg1, object arg2, object arg3)

-        {

-            {

-                object _State = arg1;

-                object _Module = arg2;

-                foreach (bool l2 in YP.unify(arg3, Atom.NIL))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-            {

-                object State = arg1;

-                object Module = arg2;

-                Variable Name = new Variable();

-                Variable Arity = new Variable();

-                Variable Rest = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor2(@"/", Name, Arity), Rest)))

-                {

-                    CompilerState.assertModuleForNameArity(State, Name, Arity, Module);

-                    foreach (bool l3 in importPredicateList(State, Module, Rest))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg1;

-                object Module = arg2;

-                Variable x3 = new Variable();

-                Variable Rest = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new ListPair(x3, Rest)))

-                {

-                    foreach (bool l3 in importPredicateList(State, Module, Rest))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> makeFunctionPseudoCode3(object RuleList, object State, object FunctionCode)

-        {

-            {

-                Variable SamePredicateRuleList = new Variable();

-                Variable RestRules = new Variable();

-                foreach (bool l2 in samePredicateRuleList(RuleList, SamePredicateRuleList, RestRules))

-                {

-                    if (YP.termNotEqual(SamePredicateRuleList, Atom.NIL))

-                    {

-                        foreach (bool l4 in compileSamePredicateFunction(SamePredicateRuleList, State, FunctionCode))

-                        {

-                            yield return false;

-                        }

-                        foreach (bool l4 in makeFunctionPseudoCode3(RestRules, State, FunctionCode))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileSamePredicateFunction(object SamePredicateRuleList, object State, object FunctionCode)

-        {

-            {

-                Variable FirstRule = new Variable();

-                Variable x5 = new Variable();

-                Variable x6 = new Variable();

-                Variable x7 = new Variable();

-                Variable Head = new Variable();

-                Variable x9 = new Variable();

-                Variable ArgAssignments = new Variable();

-                Variable Calls = new Variable();

-                Variable Rule = new Variable();

-                Variable VariableNameSuggestions = new Variable();

-                Variable ClauseBag = new Variable();

-                Variable Name = new Variable();

-                Variable ArgsList = new Variable();

-                Variable FunctionArgNames = new Variable();

-                Variable MergedArgName = new Variable();

-                Variable ArgName = new Variable();

-                Variable MergedArgNames = new Variable();

-                Variable FunctionArgs = new Variable();

-                Variable BodyCode = new Variable();

-                Variable ReturnType = new Variable();

-                Variable BodyWithReturn = new Variable();

-                foreach (bool l2 in YP.unify(new ListPair(new Functor2(@"f", FirstRule, x5), x6), SamePredicateRuleList))

-                {

-                    foreach (bool l3 in YP.unify(FirstRule, new Functor1(@":-", x7)))

-                    {

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in YP.unify(new Functor2(@":-", Head, x9), FirstRule))

-                    {

-                        CompilerState.startFunction(State, Head);

-                        FindallAnswers findallAnswers3 = new FindallAnswers(new Functor2(@"f", ArgAssignments, Calls));

-                        foreach (bool l4 in member(new Functor2(@"f", Rule, VariableNameSuggestions), SamePredicateRuleList))

-                        {

-                            foreach (bool l5 in compileBodyWithHeadBindings(Rule, VariableNameSuggestions, State, ArgAssignments, Calls))

-                            {

-                                findallAnswers3.add();

-                            }

-                        }

-                        foreach (bool l4 in findallAnswers3.result(ClauseBag))

-                        {

-                            foreach (bool l5 in YP.univ(Head, new ListPair(Name, ArgsList)))

-                            {

-                                foreach (bool l6 in getFunctionArgNames(ArgsList, 1, FunctionArgNames))

-                                {

-                                    FindallAnswers findallAnswers4 = new FindallAnswers(MergedArgName);

-                                    foreach (bool l7 in member(ArgName, FunctionArgNames))

-                                    {

-                                        foreach (bool l8 in argAssignedAll(ArgName, ClauseBag, MergedArgName))

-                                        {

-                                            findallAnswers4.add();

-                                            goto cutIf5;

-                                        }

-                                        foreach (bool l8 in YP.unify(MergedArgName, ArgName))

-                                        {

-                                            findallAnswers4.add();

-                                        }

-                                    cutIf5:

-                                        { }

-                                    }

-                                    foreach (bool l7 in findallAnswers4.result(MergedArgNames))

-                                    {

-                                        foreach (bool l8 in maplist_arg(MergedArgNames, FunctionArgs))

-                                        {

-                                            foreach (bool l9 in maplist_compileClause(ClauseBag, MergedArgNames, BodyCode))

-                                            {

-                                                if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))

-                                                {

-                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"void")))

-                                                    {

-                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                        {

-                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))

-                                                            {

-                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                                {

-                                                                    yield return false;

-                                                                }

-                                                            }

-                                                            goto cutIf7;

-                                                        }

-                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                    cutIf7:

-                                                        { }

-                                                    }

-                                                    goto cutIf6;

-                                                }

-                                                if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                {

-                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"bool")))

-                                                    {

-                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                        {

-                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))

-                                                            {

-                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                                {

-                                                                    yield return false;

-                                                                }

-                                                            }

-                                                            goto cutIf9;

-                                                        }

-                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                    cutIf9:

-                                                        { }

-                                                    }

-                                                    goto cutIf8;

-                                                }

-                                                foreach (bool l10 in YP.unify(ReturnType, Atom.a(@"IEnumerable<bool>")))

-                                                {

-                                                    if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                    {

-                                                        foreach (bool l12 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                        goto cutIf10;

-                                                    }

-                                                    foreach (bool l11 in YP.unify(BodyWithReturn, BodyCode))

-                                                            {

-                                                        foreach (bool l12 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                        {

-                                                            yield return false;

-                                                        }

-                                                    }

-                                                cutIf10:

-                                                    { }

-                                                }

-                                            cutIf8:

-                                            cutIf6:

-                                                { }

-                                            }

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                        goto cutIf2;

-                    }

-                    foreach (bool l3 in YP.unify(Head, FirstRule))

-                    {

-                        CompilerState.startFunction(State, Head);

-                        FindallAnswers findallAnswers11 = new FindallAnswers(new Functor2(@"f", ArgAssignments, Calls));

-                        foreach (bool l4 in member(new Functor2(@"f", Rule, VariableNameSuggestions), SamePredicateRuleList))

-                        {

-                            foreach (bool l5 in compileBodyWithHeadBindings(Rule, VariableNameSuggestions, State, ArgAssignments, Calls))

-                            {

-                                findallAnswers11.add();

-                            }

-                        }

-                        foreach (bool l4 in findallAnswers11.result(ClauseBag))

-                        {

-                            foreach (bool l5 in YP.univ(Head, new ListPair(Name, ArgsList)))

-                            {

-                                foreach (bool l6 in getFunctionArgNames(ArgsList, 1, FunctionArgNames))

-                                {

-                                    FindallAnswers findallAnswers12 = new FindallAnswers(MergedArgName);

-                                    foreach (bool l7 in member(ArgName, FunctionArgNames))

-                                    {

-                                        foreach (bool l8 in argAssignedAll(ArgName, ClauseBag, MergedArgName))

-                                        {

-                                            findallAnswers12.add();

-                                            goto cutIf13;

-                                        }

-                                        foreach (bool l8 in YP.unify(MergedArgName, ArgName))

-                                        {

-                                            findallAnswers12.add();

-                                        }

-                                    cutIf13:

-                                        { }

-                                    }

-                                    foreach (bool l7 in findallAnswers12.result(MergedArgNames))

-                                    {

-                                        foreach (bool l8 in maplist_arg(MergedArgNames, FunctionArgs))

-                                        {

-                                            foreach (bool l9 in maplist_compileClause(ClauseBag, MergedArgNames, BodyCode))

-                                            {

-                                                if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))

-                                                {

-                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"void")))

-                                                    {

-                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                        {

-                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))

-                                                            {

-                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                                {

-                                                                    yield return false;

-                                                                }

-                                                            }

-                                                            goto cutIf15;

-                                                        }

-                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                    cutIf15:

-                                                        { }

-                                                    }

-                                                    goto cutIf14;

-                                                }

-                                                if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                {

-                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"bool")))

-                                                    {

-                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                        {

-                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))

-                                                            {

-                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                                {

-                                                                    yield return false;

-                                                                }

-                                                            }

-                                                            goto cutIf17;

-                                                        }

-                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                    cutIf17:

-                                                        { }

-                                                    }

-                                                    goto cutIf16;

-                                                }

-                                                foreach (bool l10 in YP.unify(ReturnType, Atom.a(@"IEnumerable<bool>")))

-                                                {

-                                                    if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                                                    {

-                                                        foreach (bool l12 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))

-                                                        {

-                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                            {

-                                                                yield return false;

-                                                            }

-                                                        }

-                                                        goto cutIf18;

-                                                    }

-                                                    foreach (bool l11 in YP.unify(BodyWithReturn, BodyCode))

-                                                    {

-                                                        foreach (bool l12 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))

-                                                        {

-                                                            yield return false;

-                                                        }

-                                                    }

-                                                cutIf18:

-                                                    { }

-                                                }

-                                            cutIf16:

-                                            cutIf14:

-                                                { }

-                                            }

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                cutIf2:

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> samePredicateRuleList(object arg1, object arg2, object arg3)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                Variable First = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Atom.NIL)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(First, Atom.NIL)))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object SamePredicateRuleList = arg2;

-                object RestRules = arg3;

-                Variable First = new Variable();

-                Variable Rest = new Variable();

-                Variable FirstRule = new Variable();

-                Variable x6 = new Variable();

-                Variable SecondRule = new Variable();

-                Variable x8 = new Variable();

-                Variable x9 = new Variable();

-                Variable FirstHead = new Variable();

-                Variable x11 = new Variable();

-                Variable SecondHead = new Variable();

-                Variable x13 = new Variable();

-                Variable Name = new Variable();

-                Variable Arity = new Variable();

-                Variable RestSamePredicates = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))

-                {

-                    foreach (bool l3 in YP.unify(new Functor2(@"f", FirstRule, x6), First))

-                    {

-                        foreach (bool l4 in YP.unify(new ListPair(new Functor2(@"f", SecondRule, x8), x9), Rest))

-                        {

-                            foreach (bool l5 in YP.unify(new Functor2(@":-", FirstHead, x11), FirstRule))

-                            {

-                                foreach (bool l6 in YP.unify(new Functor2(@":-", SecondHead, x13), SecondRule))

-                                {

-                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))

-                                    {

-                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))

-                                        {

-                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))

-                                            {

-                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))

-                                                {

-                                                    yield return true;

-                                                    yield break;

-                                                }

-                                            }

-                                            goto cutIf3;

-                                        }

-                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))

-                                        {

-                                            foreach (bool l9 in YP.unify(RestRules, Rest))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    cutIf3:

-                                        { }

-                                    }

-                                    goto cutIf2;

-                                }

-                                foreach (bool l6 in YP.unify(SecondHead, SecondRule))

-                                {

-                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))

-                                    {

-                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))

-                                        {

-                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))

-                                            {

-                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))

-                                                {

-                                                    yield return true;

-                                                    yield break;

-                                                }

-                                            }

-                                            goto cutIf4;

-                                        }

-                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))

-                                        {

-                                            foreach (bool l9 in YP.unify(RestRules, Rest))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    cutIf4:

-                                        { }

-                                    }

-                                }

-                            cutIf2:

-                                goto cutIf1;

-                            }

-                            foreach (bool l5 in YP.unify(FirstHead, FirstRule))

-                            {

-                                foreach (bool l6 in YP.unify(new Functor2(@":-", SecondHead, x13), SecondRule))

-                                {

-                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))

-                                    {

-                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))

-                                        {

-                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))

-                                            {

-                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))

-                                                {

-                                                    yield return true;

-                                                    yield break;

-                                                }

-                                            }

-                                            goto cutIf6;

-                                        }

-                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))

-                                        {

-                                            foreach (bool l9 in YP.unify(RestRules, Rest))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    cutIf6:

-                                        { }

-                                    }

-                                    goto cutIf5;

-                                }

-                                foreach (bool l6 in YP.unify(SecondHead, SecondRule))

-                                {

-                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))

-                                    {

-                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))

-                                        {

-                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))

-                                            {

-                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))

-                                                {

-                                                    yield return true;

-                                                    yield break;

-                                                }

-                                            }

-                                            goto cutIf7;

-                                        }

-                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))

-                                        {

-                                            foreach (bool l9 in YP.unify(RestRules, Rest))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    cutIf7:

-                                        { }

-                                    }

-                                }

-                            cutIf5:

-                                { }

-                            }

-                        cutIf1:

-                            { }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> maplist_compileClause(object arg1, object arg2, object arg3)

-        {

-            {

-                object _MergedArgNames = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object MergedArgNames = arg2;

-                Variable ArgAssignments = new Variable();

-                Variable Calls = new Variable();

-                Variable Rest = new Variable();

-                Variable ClauseCode = new Variable();

-                Variable RestResults = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", ArgAssignments, Calls), Rest)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"blockScope", ClauseCode), RestResults)))

-                    {

-                        foreach (bool l4 in prependArgAssignments(ArgAssignments, Calls, MergedArgNames, ClauseCode))

-                        {

-                            foreach (bool l5 in maplist_compileClause(Rest, MergedArgNames, RestResults))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> prependArgAssignments(object arg1, object arg2, object arg3, object arg4)

-        {

-            {

-                object _MergedArgNames = arg3;

-                Variable In = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, In))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, In))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object In = arg2;

-                object MergedArgNames = arg3;

-                object ClauseCode = arg4;

-                Variable VariableName = new Variable();

-                Variable ArgName = new Variable();

-                Variable RestArgAssignments = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", VariableName, ArgName), RestArgAssignments)))

-                {

-                    foreach (bool l3 in member(VariableName, MergedArgNames))

-                    {

-                        foreach (bool l4 in prependArgAssignments(RestArgAssignments, In, MergedArgNames, ClauseCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in prependArgAssignments(RestArgAssignments, new ListPair(new Functor3(@"declare", Atom.a(@"object"), VariableName, new Functor1(@"var", ArgName)), In), MergedArgNames, ClauseCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> argAssignedAll(object arg1, object arg2, object VariableName)

-        {

-            {

-                object _ArgName = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.NIL))

-                {

-                    if (YP.nonvar(VariableName))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object ArgName = arg1;

-                Variable ArgAssignments = new Variable();

-                Variable _Calls = new Variable();

-                Variable RestClauseBag = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(new Functor2(@"f", ArgAssignments, _Calls), RestClauseBag)))

-                {

-                    foreach (bool l3 in member(new Functor2(@"f", VariableName, ArgName), ArgAssignments))

-                    {

-                        foreach (bool l4 in argAssignedAll(ArgName, RestClauseBag, VariableName))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> maplist_arg(object arg1, object arg2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable First = new Variable();

-                Variable Rest = new Variable();

-                Variable RestResults = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor1(@"arg", First), RestResults)))

-                    {

-                        foreach (bool l4 in maplist_arg(Rest, RestResults))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> getFunctionArgNames(object arg1, object arg2, object arg3)

-        {

-            {

-                object _StartArgNumber = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object StartArgNumber = arg2;

-                Variable x1 = new Variable();

-                Variable Rest = new Variable();

-                Variable ArgName = new Variable();

-                Variable RestFunctionArgs = new Variable();

-                Variable NumberCodes = new Variable();

-                Variable NumberAtom = new Variable();

-                Variable NextArgNumber = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, Rest)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(ArgName, RestFunctionArgs)))

-                    {

-                        foreach (bool l4 in YP.number_codes(StartArgNumber, NumberCodes))

-                        {

-                            foreach (bool l5 in YP.atom_codes(NumberAtom, NumberCodes))

-                            {

-                                foreach (bool l6 in YP.atom_concat(Atom.a(@"arg"), NumberAtom, ArgName))

-                                {

-                                    foreach (bool l7 in YP.unify(NextArgNumber, YP.add(StartArgNumber, 1)))

-                                    {

-                                        foreach (bool l8 in getFunctionArgNames(Rest, NextArgNumber, RestFunctionArgs))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileBodyWithHeadBindings(object Rule, object VariableNameSuggestions, object State, object ArgAssignments, object Calls)

-        {

-            {

-                Variable Head = new Variable();

-                Variable Body = new Variable();

-                Variable x8 = new Variable();

-                Variable HeadArgs = new Variable();

-                Variable CompiledHeadArgs = new Variable();

-                Variable BodyCode = new Variable();

-                Variable VariableNamesList = new Variable();

-                Variable ArgUnifications = new Variable();

-                foreach (bool l2 in YP.unify(new Functor2(@":-", Head, Body), Rule))

-                {

-                    CompilerState.newVariableNames(State, Rule, VariableNameSuggestions);

-                    foreach (bool l3 in YP.univ(Head, new ListPair(x8, HeadArgs)))

-                    {

-                        foreach (bool l4 in maplist_compileTerm(HeadArgs, State, CompiledHeadArgs))

-                        {

-                            foreach (bool l5 in compileRuleBody(Body, State, BodyCode))

-                            {

-                                foreach (bool l6 in CompilerState.variableNamesList(State, VariableNamesList))

-                                {

-                                    foreach (bool l7 in compileArgUnifications(HeadArgs, CompiledHeadArgs, 1, HeadArgs, BodyCode, ArgUnifications))

-                                    {

-                                        foreach (bool l8 in compileDeclarations(VariableNamesList, HeadArgs, Atom.NIL, ArgAssignments, ArgUnifications, Calls))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in compileBodyWithHeadBindings(new Functor2(@":-", Rule, Atom.a(@"true")), VariableNameSuggestions, State, ArgAssignments, Calls))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileArgUnifications(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)

-        {

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                object x3 = arg4;

-                Variable BodyCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg5, BodyCode))

-                    {

-                        foreach (bool l4 in YP.unify(arg6, BodyCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object Index = arg3;

-                object AllHeadArgs = arg4;

-                object BodyCode = arg5;

-                object ArgUnifications = arg6;

-                Variable HeadArg = new Variable();

-                Variable RestHeadArgs = new Variable();

-                Variable x3 = new Variable();

-                Variable RestCompiledHeadArgs = new Variable();

-                Variable _ArgIndex1 = new Variable();

-                Variable NextIndex = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(HeadArg, RestHeadArgs)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(x3, RestCompiledHeadArgs)))

-                    {

-                        foreach (bool l4 in getVariableArgIndex1(HeadArg, AllHeadArgs, _ArgIndex1))

-                        {

-                            foreach (bool l5 in YP.unify(NextIndex, YP.add(Index, 1)))

-                            {

-                                foreach (bool l6 in compileArgUnifications(RestHeadArgs, RestCompiledHeadArgs, NextIndex, AllHeadArgs, BodyCode, ArgUnifications))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Index = arg3;

-                object AllHeadArgs = arg4;

-                object BodyCode = arg5;

-                Variable _HeadArg = new Variable();

-                Variable RestHeadArgs = new Variable();

-                Variable CompiledHeadArg = new Variable();

-                Variable RestCompiledHeadArgs = new Variable();

-                Variable ArgName = new Variable();

-                Variable RestArgUnifications = new Variable();

-                Variable NumberCodes = new Variable();

-                Variable NumberAtom = new Variable();

-                Variable NextIndex = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(_HeadArg, RestHeadArgs)))

-                {

-                    foreach (bool l3 in YP.unify(arg2, new ListPair(CompiledHeadArg, RestCompiledHeadArgs)))

-                    {

-                        foreach (bool l4 in YP.unify(arg6, new ListPair(new Functor2(@"foreach", new Functor2(@"call", Atom.a(@"YP.unify"), new ListPair(new Functor1(@"var", ArgName), new ListPair(CompiledHeadArg, Atom.NIL))), RestArgUnifications), Atom.NIL)))

-                        {

-                            foreach (bool l5 in YP.number_codes(Index, NumberCodes))

-                            {

-                                foreach (bool l6 in YP.atom_codes(NumberAtom, NumberCodes))

-                                {

-                                    foreach (bool l7 in YP.atom_concat(Atom.a(@"arg"), NumberAtom, ArgName))

-                                    {

-                                        foreach (bool l8 in YP.unify(NextIndex, YP.add(Index, 1)))

-                                        {

-                                            foreach (bool l9 in compileArgUnifications(RestHeadArgs, RestCompiledHeadArgs, NextIndex, AllHeadArgs, BodyCode, RestArgUnifications))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileDeclarations(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)

-        {

-            {

-                object _HeadArgs = arg2;

-                Variable ArgAssignmentsIn = new Variable();

-                Variable DeclarationsIn = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg3, ArgAssignmentsIn))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, ArgAssignmentsIn))

-                        {

-                            foreach (bool l5 in YP.unify(arg5, DeclarationsIn))

-                            {

-                                foreach (bool l6 in YP.unify(arg6, DeclarationsIn))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object HeadArgs = arg2;

-                object ArgAssignmentsIn = arg3;

-                object ArgAssignmentsOut = arg4;

-                object DeclarationsIn = arg5;

-                object DeclarationsOut = arg6;

-                Variable VariableName = new Variable();

-                Variable Var = new Variable();

-                Variable RestVariableNames = new Variable();

-                Variable ArgIndex1 = new Variable();

-                Variable NumberCodes = new Variable();

-                Variable NumberAtom = new Variable();

-                Variable ArgName = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", VariableName, Var), RestVariableNames)))

-                {

-                    foreach (bool l3 in getVariableArgIndex1(Var, HeadArgs, ArgIndex1))

-                    {

-                        foreach (bool l4 in YP.number_codes(ArgIndex1, NumberCodes))

-                        {

-                            foreach (bool l5 in YP.atom_codes(NumberAtom, NumberCodes))

-                            {

-                                foreach (bool l6 in YP.atom_concat(Atom.a(@"arg"), NumberAtom, ArgName))

-                                {

-                                    foreach (bool l7 in compileDeclarations(RestVariableNames, HeadArgs, new ListPair(new Functor2(@"f", VariableName, ArgName), ArgAssignmentsIn), ArgAssignmentsOut, DeclarationsIn, DeclarationsOut))

-                                    {

-                                        yield return true;

-                                        yield break;

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object HeadArgs = arg2;

-                object ArgAssignmentsIn = arg3;

-                object ArgAssignmentsOut = arg4;

-                object DeclarationsIn = arg5;

-                Variable VariableName = new Variable();

-                Variable _Var = new Variable();

-                Variable RestVariableNames = new Variable();

-                Variable DeclarationsOut = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", VariableName, _Var), RestVariableNames)))

-                {

-                    foreach (bool l3 in YP.unify(arg6, new ListPair(new Functor3(@"declare", Atom.a(@"Variable"), VariableName, new Functor2(@"new", Atom.a(@"Variable"), Atom.NIL)), DeclarationsOut)))

-                    {

-                        foreach (bool l4 in compileDeclarations(RestVariableNames, HeadArgs, ArgAssignmentsIn, ArgAssignmentsOut, DeclarationsIn, DeclarationsOut))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> getVariableArgIndex1(object Var, object arg2, object arg3)

-        {

-            {

-                Variable FirstHeadArgs = new Variable();

-                Variable RestHeadArgs = new Variable();

-                Variable x4 = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(FirstHeadArgs, RestHeadArgs)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        if (sameVariable(Var, FirstHeadArgs))

-                        {

-                            foreach (bool l5 in getVariableArgIndex1(Var, RestHeadArgs, x4))

-                            {

-                                goto cutIf1;

-                            }

-                            yield return false;

-                        cutIf1:

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object Index = arg3;

-                Variable x2 = new Variable();

-                Variable RestHeadArgs = new Variable();

-                Variable RestIndex = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(x2, RestHeadArgs)))

-                {

-                    foreach (bool l3 in getVariableArgIndex1(Var, RestHeadArgs, RestIndex))

-                    {

-                        foreach (bool l4 in YP.unify(Index, YP.add(1, RestIndex)))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileRuleBody(object arg1, object arg2, object arg3)

-        {

-            {

-                object A = arg1;

-                object State = arg2;

-                object PseudoCode = arg3;

-                if (YP.var(A))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor1(@"call", A), Atom.a(@"true")), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"!")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"return"), Atom.NIL)))

-                    {

-                        if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"!")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"returntrue"), Atom.NIL)))

-                    {

-                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object _State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"!")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"yieldtrue"), new ListPair(Atom.a(@"yieldbreak"), Atom.NIL))))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object _State = arg2;

-                Variable Name = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"$CUTIF", Name)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"breakBlock", Name), Atom.NIL)))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"true")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"return"), Atom.NIL)))

-                    {

-                        if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"true")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"returntrue"), Atom.NIL)))

-                    {

-                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object _State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"true")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"yieldfalse"), Atom.NIL)))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))

-                {

-                    if (YP.var(A))

-                    {

-                        foreach (bool l4 in compileRuleBody(new Functor2(@",", new Functor1(@"call", A), B), State, PseudoCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable T = new Variable();

-                Variable B = new Variable();

-                Variable C = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, T), B), C)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@";", new Functor2(@"->", A, new Functor2(@",", T, C)), new Functor2(@",", B, C)), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable C = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@";", A, B), C)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@";", new Functor2(@",", A, C), new Functor2(@",", B, C)), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable ACode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"\+", A), B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"if", new Functor1(@"not", ACode), BCode), Atom.NIL)))

-                    {

-                        if (CompilerState.isSemidetNoneOut(State, A))

-                        {

-                            foreach (bool l5 in compileFunctorCall(A, State, ACode))

-                            {

-                                foreach (bool l6 in compileRuleBody(B, State, BCode))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"\+", A), B)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, Atom.a(@"fail")), Atom.a(@"true")), B), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"once", A), B)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, Atom.a(@"true")), Atom.a(@"fail")), B), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable T = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@"->", A, T), B)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, T), Atom.a(@"fail")), B), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable C = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@"\=", A, B), C)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor1(@"\+", new Functor2(@"=", A, B)), C), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable ACode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", Atom.a(@"!"), A)))

-                {

-                    foreach (bool l3 in compileRuleBody(A, State, ACode))

-                    {

-                        foreach (bool l4 in append(ACode, new ListPair(Atom.a(@"yieldbreak"), Atom.NIL), PseudoCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable Name = new Variable();

-                Variable A = new Variable();

-                Variable ACode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"$CUTIF", Name), A)))

-                {

-                    foreach (bool l3 in compileRuleBody(A, State, ACode))

-                    {

-                        foreach (bool l4 in append(ACode, new ListPair(new Functor1(@"breakBlock", Name), Atom.NIL), PseudoCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object _State = arg2;

-                Variable x1 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", Atom.a(@"fail"), x1)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", Atom.a(@"true"), A)))

-                {

-                    foreach (bool l3 in compileRuleBody(A, State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable Term = new Variable();

-                Variable B = new Variable();

-                Variable ACode = new Variable();

-                Variable TermCode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@"is", A, Term), B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"foreach", new Functor2(@"call", Atom.a(@"YP.unify"), new ListPair(ACode, new ListPair(TermCode, Atom.NIL))), BCode), Atom.NIL)))

-                    {

-                        foreach (bool l4 in compileTerm(A, State, ACode))

-                        {

-                            foreach (bool l5 in compileExpression(Term, State, TermCode))

-                            {

-                                foreach (bool l6 in compileRuleBody(B, State, BCode))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable ACode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(ACode, BCode)))

-                    {

-                        if (CompilerState.isDetNoneOut(State, A))

-                        {

-                            foreach (bool l5 in compileFunctorCall(A, State, ACode))

-                            {

-                                foreach (bool l6 in compileRuleBody(B, State, BCode))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable ACode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"if", ACode, BCode), Atom.NIL)))

-                    {

-                        if (CompilerState.isSemidetNoneOut(State, A))

-                        {

-                            foreach (bool l5 in compileFunctorCall(A, State, ACode))

-                            {

-                                foreach (bool l6 in compileRuleBody(B, State, BCode))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable ACode = new Variable();

-                Variable B = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"$DET_NONE_OUT", ACode), B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(ACode, BCode)))

-                    {

-                        foreach (bool l4 in compileRuleBody(B, State, BCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable FunctionName = new Variable();

-                Variable X1Code = new Variable();

-                Variable X2Code = new Variable();

-                Variable BCode = new Variable();

-                Variable Name = new Variable();

-                Variable X1 = new Variable();

-                Variable X2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"if", new Functor2(@"call", FunctionName, new ListPair(X1Code, new ListPair(X2Code, Atom.NIL))), BCode), Atom.NIL)))

-                    {

-                        foreach (bool l4 in YP.univ(A, new ListPair(Name, new ListPair(X1, new ListPair(X2, Atom.NIL)))))

-                        {

-                            foreach (bool l5 in binaryExpressionConditional(Name, FunctionName))

-                            {

-                                foreach (bool l6 in compileExpression(X1, State, X1Code))

-                                {

-                                    foreach (bool l7 in compileExpression(X2, State, X2Code))

-                                    {

-                                        foreach (bool l8 in compileRuleBody(B, State, BCode))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable C = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@",", A, B), C)))

-                {

-                    foreach (bool l3 in compileRuleBody(new Functor2(@",", A, new Functor2(@",", B, C)), State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable Template = new Variable();

-                Variable Goal = new Variable();

-                Variable Bag = new Variable();

-                Variable B = new Variable();

-                Variable TemplateCode = new Variable();

-                Variable FindallAnswers = new Variable();

-                Variable GoalAndAddCode = new Variable();

-                Variable BagCode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor3(@"findall", Template, Goal, Bag), B)))

-                {

-                    foreach (bool l3 in compileTerm(Template, State, TemplateCode))

-                    {

-                        foreach (bool l4 in CompilerState.gensym(State, Atom.a(@"findallAnswers"), FindallAnswers))

-                        {

-                            foreach (bool l5 in compileRuleBody(new Functor2(@",", Goal, new Functor2(@",", new Functor1(@"$DET_NONE_OUT", new Functor3(@"callMember", new Functor1(@"var", FindallAnswers), Atom.a(@"add"), Atom.NIL)), Atom.a(@"fail"))), State, GoalAndAddCode))

-                            {

-                                foreach (bool l6 in compileTerm(Bag, State, BagCode))

-                                {

-                                    foreach (bool l7 in compileRuleBody(B, State, BCode))

-                                    {

-                                        foreach (bool l8 in append(new ListPair(new Functor3(@"declare", Atom.a(@"FindallAnswers"), FindallAnswers, new Functor2(@"new", Atom.a(@"FindallAnswers"), new ListPair(TemplateCode, Atom.NIL))), GoalAndAddCode), new ListPair(new Functor2(@"foreach", new Functor3(@"callMember", new Functor1(@"var", FindallAnswers), Atom.a(@"result"), new ListPair(BagCode, Atom.NIL)), BCode), Atom.NIL), PseudoCode))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable Template = new Variable();

-                Variable Goal = new Variable();

-                Variable Bag = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor3(@"bagof", Template, Goal, Bag), B)))

-                {

-                    foreach (bool l3 in compileBagof(Atom.a(@"result"), Template, Goal, Bag, B, State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable Template = new Variable();

-                Variable Goal = new Variable();

-                Variable Bag = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor3(@"setof", Template, Goal, Bag), B)))

-                {

-                    foreach (bool l3 in compileBagof(Atom.a(@"resultSet"), Template, Goal, Bag, B, State, PseudoCode))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable ATermCode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"call", A), B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"foreach", new Functor2(@"call", Atom.a(@"YP.getIterator"), new ListPair(ATermCode, new ListPair(new Functor2(@"call", Atom.a(@"getDeclaringClass"), Atom.NIL), Atom.NIL))), BCode), Atom.NIL)))

-                    {

-                        foreach (bool l4 in compileTerm(A, State, ATermCode))

-                        {

-                            foreach (bool l5 in compileRuleBody(B, State, BCode))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable ACode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"foreach", ACode, BCode), Atom.NIL)))

-                    {

-                        foreach (bool l4 in compileFunctorCall(A, State, ACode))

-                        {

-                            foreach (bool l5 in compileRuleBody(B, State, BCode))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@";", A, B)))

-                {

-                    if (YP.var(A))

-                    {

-                        foreach (bool l4 in compileRuleBody(new Functor2(@";", new Functor1(@"call", A), B), State, PseudoCode))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable A = new Variable();

-                Variable T = new Variable();

-                Variable B = new Variable();

-                Variable CutIfLabel = new Variable();

-                Variable Code = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@";", new Functor2(@"->", A, T), B)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"breakableBlock", CutIfLabel, Code), Atom.NIL)))

-                    {

-                        foreach (bool l4 in CompilerState.gensym(State, Atom.a(@"cutIf"), CutIfLabel))

-                        {

-                            foreach (bool l5 in compileRuleBody(new Functor2(@";", new Functor2(@",", A, new Functor2(@",", new Functor1(@"$CUTIF", CutIfLabel), T)), B), State, Code))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                object PseudoCode = arg3;

-                Variable A = new Variable();

-                Variable B = new Variable();

-                Variable ACode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@";", A, B)))

-                {

-                    foreach (bool l3 in compileRuleBody(A, State, ACode))

-                    {

-                        foreach (bool l4 in compileRuleBody(B, State, BCode))

-                        {

-                            foreach (bool l5 in append(ACode, BCode, PseudoCode))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object A = arg1;

-                object State = arg2;

-                object PseudoCode = arg3;

-                foreach (bool l2 in compileRuleBody(new Functor2(@",", A, Atom.a(@"true")), State, PseudoCode))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileBagof(object ResultMethod, object Template, object Goal, object Bag, object B, object State, object PseudoCode)

-        {

-            {

-                Variable TemplateCode = new Variable();

-                Variable GoalTermCode = new Variable();

-                Variable UnqualifiedGoal = new Variable();

-                Variable BagofAnswers = new Variable();

-                Variable GoalAndAddCode = new Variable();

-                Variable BagCode = new Variable();

-                Variable BCode = new Variable();

-                foreach (bool l2 in compileTerm(Template, State, TemplateCode))

-                {

-                    foreach (bool l3 in compileTerm(Goal, State, GoalTermCode))

-                    {

-                        foreach (bool l4 in unqualifiedGoal(Goal, UnqualifiedGoal))

-                        {

-                            foreach (bool l5 in CompilerState.gensym(State, Atom.a(@"bagofAnswers"), BagofAnswers))

-                            {

-                                foreach (bool l6 in compileRuleBody(new Functor2(@",", UnqualifiedGoal, new Functor2(@",", new Functor1(@"$DET_NONE_OUT", new Functor3(@"callMember", new Functor1(@"var", BagofAnswers), Atom.a(@"add"), Atom.NIL)), Atom.a(@"fail"))), State, GoalAndAddCode))

-                                {

-                                    foreach (bool l7 in compileTerm(Bag, State, BagCode))

-                                    {

-                                        foreach (bool l8 in compileRuleBody(B, State, BCode))

-                                        {

-                                            foreach (bool l9 in append(new ListPair(new Functor3(@"declare", Atom.a(@"BagofAnswers"), BagofAnswers, new Functor2(@"new", Atom.a(@"BagofAnswers"), new ListPair(TemplateCode, new ListPair(GoalTermCode, Atom.NIL)))), GoalAndAddCode), new ListPair(new Functor2(@"foreach", new Functor3(@"callMember", new Functor1(@"var", BagofAnswers), ResultMethod, new ListPair(BagCode, Atom.NIL)), BCode), Atom.NIL), PseudoCode))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    }

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> unqualifiedGoal(object arg1, object arg2)

-        {

-            {

-                object Goal = arg1;

-                foreach (bool l2 in YP.unify(arg2, new Functor1(@"call", Goal)))

-                {

-                    if (YP.var(Goal))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object UnqualifiedGoal = arg2;

-                Variable x1 = new Variable();

-                Variable Goal = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"^", x1, Goal)))

-                {

-                    foreach (bool l3 in unqualifiedGoal(Goal, UnqualifiedGoal))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                Variable UnqualifiedGoal = new Variable();

-                foreach (bool l2 in YP.unify(arg1, UnqualifiedGoal))

-                {

-                    foreach (bool l3 in YP.unify(arg2, UnqualifiedGoal))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> binaryExpressionConditional(object arg1, object arg2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"=:=")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.equal")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"=\=")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.notEqual")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@">")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.greaterThan")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"<")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.lessThan")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@">=")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.greaterThanOrEqual")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"=<")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.lessThanOrEqual")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileFunctorCall(object Functor_1, object State, object arg3)

-        {

-            {

-                Variable FunctionName = new Variable();

-                Variable CompiledArgs = new Variable();

-                Variable FunctorName = new Variable();

-                Variable FunctorArgs = new Variable();

-                Variable x7 = new Variable();

-                Variable Arity = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new Functor2(@"call", FunctionName, CompiledArgs)))

-                {

-                    foreach (bool l3 in YP.univ(Functor_1, new ListPair(FunctorName, FunctorArgs)))

-                    {

-                        foreach (bool l4 in YP.functor(Functor_1, x7, Arity))

-                        {

-                            foreach (bool l5 in functorCallFunctionName(State, FunctorName, Arity, FunctionName))

-                            {

-                                foreach (bool l6 in maplist_compileTerm(FunctorArgs, State, CompiledArgs))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> functorCallFunctionName(object arg1, object arg2, object arg3, object arg4)

-        {

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"=")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.unify")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"=..")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.univ")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"var")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.var")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"nonvar")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.nonvar")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"arg")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 3))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.arg")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"functor")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 3))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.functor")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"repeat")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 0))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.repeat")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"get_code")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.get_code")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"current_op")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 3))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.current_op")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom_length")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom_length")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom_concat")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 3))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom_concat")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"sub_atom")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 5))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.sub_atom")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom_codes")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom_codes")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"number_codes")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.number_codes")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"copy_term")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.copy_term")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"sort")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.sort")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"script_event")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.script_event")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"nl")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 0))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.nl")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"write")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.write")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"put_code")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.put_code")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"number")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.number")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"==")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termEqual")))

-                {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"\==")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termNotEqual")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@<")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termLessThan")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@=<")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termLessThanOrEqual")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@>")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termGreaterThan")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@>=")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 2))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termGreaterThanOrEqual")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object x1 = arg1;

-                foreach (bool l2 in YP.unify(arg2, Atom.a(@"throw")))

-                {

-                    foreach (bool l3 in YP.unify(arg3, 1))

-                    {

-                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.throwException")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object State = arg1;

-                object Arity = arg3;

-                Variable Name = new Variable();

-                foreach (bool l2 in YP.unify(arg2, Name))

-                {

-                    foreach (bool l3 in YP.unify(arg4, Name))

-                    {

-                        if (CompilerState.nameArityHasModule(State, Name, Arity, Atom.a(@"")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object _State = arg1;

-                object _Arity = arg3;

-                Variable Name = new Variable();

-                foreach (bool l2 in YP.unify(arg2, Name))

-                {

-                    foreach (bool l3 in YP.unify(arg4, Name))

-                    {

-                        foreach (bool l4 in Atom.module(Name, Atom.a(@"")))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object _State = arg1;

-                object Name = arg2;

-                object Arity = arg3;

-                object x4 = arg4;

-                foreach (bool l2 in Atom.module(Name, Atom.NIL))

-                {

-                    YP.throwException(new Functor2(@"error", new Functor2(@"type_error", Atom.a(@"callable"), new Functor2(@"/", Name, Arity)), Atom.a(@"Calls to dynamic predicates not supported")));

-                    yield return true;

-                    yield break;

-                }

-            }

-            {

-                object _State = arg1;

-                object Name = arg2;

-                object Arity = arg3;

-                object x4 = arg4;

-                Variable Module = new Variable();

-                Variable Message = new Variable();

-                foreach (bool l2 in Atom.module(Name, Module))

-                {

-                    foreach (bool l3 in Atom.module(Name, Atom.NIL))

-                {

-                        foreach (bool l4 in YP.atom_concat(Atom.a(@"Not supporting calls to external module: "), Module, Message))

-                    {

-                            YP.throwException(new Functor2(@"error", new Functor2(@"type_error", Atom.a(@"callable"), new Functor2(@"/", Name, Arity)), Message));

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-        }

-

-        public static IEnumerable<bool> compileTerm(object arg1, object arg2, object arg3)

-        {

-            {

-                object Term = arg1;

-                object State = arg2;

-                Variable VariableName = new Variable();

-                foreach (bool l2 in YP.unify(arg3, new Functor1(@"var", VariableName)))

-                {

-                    if (YP.var(Term))

-                    {

-                        foreach (bool l4 in CompilerState.getVariableName(State, Term, VariableName))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                }

-            }

-            {

-                object _State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new Functor1(@"var", Atom.a(@"Atom.NIL"))))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Term = arg1;

-                object State = arg2;

-                object Code = arg3;

-                Variable ModuleCode = new Variable();

-                if (YP.atom(Term))

-                {

-                    foreach (bool l3 in compileAtomModule(Term, 0, State, ModuleCode))

-                    {

-                        foreach (bool l4 in YP.unify(Code, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Term), new ListPair(ModuleCode, Atom.NIL)))))

-                {

-                            yield return true;

-                            yield break;

-                        }

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in YP.unify(Code, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Term), Atom.NIL))))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                cutIf1:

-                    { }

-                }

-            }

-            {

-                object State = arg2;

-                Variable First = new Variable();

-                Variable Rest = new Variable();

-                Variable Arg1 = new Variable();

-                Variable Arg2 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new Functor2(@"new", Atom.a(@"ListPair"), new ListPair(Arg1, new ListPair(Arg2, Atom.NIL)))))

-                    {

-                        foreach (bool l4 in compileTerm(First, State, Arg1))

-                        {

-                            foreach (bool l5 in compileTerm(Rest, State, Arg2))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Term = arg1;

-                object State = arg2;

-                object Result = arg3;

-                Variable Name = new Variable();

-                Variable TermArgs = new Variable();

-                Variable x6 = new Variable();

-                Variable Arity = new Variable();

-                Variable ModuleCode = new Variable();

-                Variable NameCode = new Variable();

-                Variable X1 = new Variable();

-                Variable Arg1 = new Variable();

-                Variable X2 = new Variable();

-                Variable Arg2 = new Variable();

-                Variable X3 = new Variable();

-                Variable Arg3 = new Variable();

-                Variable Args = new Variable();

-                foreach (bool l2 in YP.univ(Term, new ListPair(Name, TermArgs)))

-                {

-                    if (YP.termEqual(TermArgs, Atom.NIL))

-                    {

-                        foreach (bool l4 in YP.unify(Result, new Functor1(@"object", Name)))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                        goto cutIf2;

-                    }

-                    foreach (bool l3 in YP.functor(Term, x6, Arity))

-                    {

-                        foreach (bool l4 in compileAtomModule(Name, Arity, State, ModuleCode))

-                        {

-                            foreach (bool l5 in YP.unify(NameCode, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Name), new ListPair(ModuleCode, Atom.NIL)))))

-                            {

-                                foreach (bool l6 in YP.unify(TermArgs, new ListPair(X1, Atom.NIL)))

-                                {

-                                    foreach (bool l7 in compileTerm(X1, State, Arg1))

-                                    {

-                                        foreach (bool l8 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor1"), new ListPair(NameCode, new ListPair(Arg1, Atom.NIL)))))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                    goto cutIf4;

-                    }

-                                foreach (bool l6 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, Atom.NIL))))

-                    {

-                                    foreach (bool l7 in compileTerm(X1, State, Arg1))

-                                    {

-                                        foreach (bool l8 in compileTerm(X2, State, Arg2))

-                        {

-                                            foreach (bool l9 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor2"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, Atom.NIL))))))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                                    goto cutIf5;

-                                }

-                                foreach (bool l6 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, new ListPair(X3, Atom.NIL)))))

-                                {

-                                    foreach (bool l7 in compileTerm(X1, State, Arg1))

-                    {

-                                        foreach (bool l8 in compileTerm(X2, State, Arg2))

-                        {

-                                            foreach (bool l9 in compileTerm(X3, State, Arg3))

-                            {

-                                                foreach (bool l10 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor3"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, new ListPair(Arg3, Atom.NIL)))))))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            }

-                        }

-                                    }

-                                }

-                                foreach (bool l6 in maplist_compileTerm(TermArgs, State, Args))

-                                {

-                                    foreach (bool l7 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor"), new ListPair(NameCode, new ListPair(new Functor1(@"objectArray", Args), Atom.NIL)))))

-                                    {

-                                        yield return true;

-                                        yield break;

-                                    }

-                                }

-                            cutIf5:

-                            cutIf4:

-                                { }

-                            }

-                        goto cutIf3;

-                    }

-                        foreach (bool l4 in YP.unify(NameCode, new Functor1(@"object", Name)))

-                        {

-                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, Atom.NIL)))

-                    {

-                                foreach (bool l6 in compileTerm(X1, State, Arg1))

-                                {

-                                    foreach (bool l7 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor1"), new ListPair(NameCode, new ListPair(Arg1, Atom.NIL)))))

-                                    {

-                                        yield return true;

-                                        yield break;

-                                    }

-                                }

-                                goto cutIf6;

-                            }

-                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, Atom.NIL))))

-                            {

-                                foreach (bool l6 in compileTerm(X1, State, Arg1))

-                                {

-                                    foreach (bool l7 in compileTerm(X2, State, Arg2))

-                                    {

-                                        foreach (bool l8 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor2"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, Atom.NIL))))))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                }

-                                goto cutIf7;

-                            }

-                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, new ListPair(X3, Atom.NIL)))))

-                            {

-                                foreach (bool l6 in compileTerm(X1, State, Arg1))

-                        {

-                                    foreach (bool l7 in compileTerm(X2, State, Arg2))

-                            {

-                                        foreach (bool l8 in compileTerm(X3, State, Arg3))

-                                {

-                                            foreach (bool l9 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor3"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, new ListPair(Arg3, Atom.NIL)))))))

-                                    {

-                                        yield return true;

-                                        yield break;

-                                    }

-                                }

-                            }

-                        }

-                    }

-                            foreach (bool l5 in maplist_compileTerm(TermArgs, State, Args))

-                    {

-                                foreach (bool l6 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor"), new ListPair(NameCode, new ListPair(new Functor1(@"objectArray", Args), Atom.NIL)))))

-                        {

-                            yield return true;

-                            yield break;

-                        }

-                    }

-                        cutIf7:

-                        cutIf6:

-                            { }

-                        }

-                cutIf3:

-                        { }

-                    }

-                cutIf2:

-                    { }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileAtomModule(object Name, object Arity, object State, object ModuleCode)

-        {

-            {

-                if (CompilerState.nameArityHasModule(State, Name, Arity, Atom.a(@"")))

-                {

-                    foreach (bool l3 in YP.unify(ModuleCode, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Atom.a(@"")), Atom.NIL))))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> maplist_compileTerm(object arg1, object arg2, object arg3)

-        {

-            {

-                object _State = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object State = arg2;

-                Variable First = new Variable();

-                Variable Rest = new Variable();

-                Variable FirstResult = new Variable();

-                Variable RestResults = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(FirstResult, RestResults)))

-                    {

-                        foreach (bool l4 in compileTerm(First, State, FirstResult))

-                        {

-                            foreach (bool l5 in maplist_compileTerm(Rest, State, RestResults))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> compileExpression(object Term, object State, object Result)

-        {

-            {

-                Variable Name = new Variable();

-                Variable TermArgs = new Variable();

-                Variable X1 = new Variable();

-                Variable FunctionName = new Variable();

-                Variable Arg1 = new Variable();

-                Variable x9 = new Variable();

-                Variable X2 = new Variable();

-                Variable Arg2 = new Variable();

-                if (YP.nonvar(Term))

-                {

-                    foreach (bool l3 in YP.univ(Term, new ListPair(Name, TermArgs)))

-                    {

-                        if (YP.atom(Name))

-                        {

-                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, Atom.NIL)))

-                            {

-                                foreach (bool l6 in unaryFunction(Name, FunctionName))

-                                {

-                                    foreach (bool l7 in compileExpression(X1, State, Arg1))

-                                    {

-                                        foreach (bool l8 in YP.unify(Result, new Functor2(@"call", FunctionName, new ListPair(Arg1, Atom.NIL))))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                    }

-                                    goto cutIf1;

-                                }

-                            }

-                            foreach (bool l5 in YP.unify(Term, new ListPair(x9, Atom.NIL)))

-                            {

-                                foreach (bool l6 in compileTerm(Term, State, Result))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                                goto cutIf2;

-                            }

-                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, Atom.NIL))))

-                            {

-                                foreach (bool l6 in binaryFunction(Name, FunctionName))

-                                {

-                                    foreach (bool l7 in compileExpression(X1, State, Arg1))

-                                    {

-                                        foreach (bool l8 in compileExpression(X2, State, Arg2))

-                                        {

-                                            foreach (bool l9 in YP.unify(Result, new Functor2(@"call", FunctionName, new ListPair(Arg1, new ListPair(Arg2, Atom.NIL)))))

-                                            {

-                                                yield return true;

-                                                yield break;

-                                            }

-                                        }

-                                    }

-                                    goto cutIf3;

-                                }

-                            }

-                            YP.throwException(new Functor2(@"error", new Functor2(@"type_error", Atom.a(@"evaluable"), Name), Atom.a(@"Not an expression function")));

-                            yield return false;

-                        cutIf3:

-                        cutIf2:

-                        cutIf1:

-                            { }

-                        }

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in compileTerm(Term, State, Result))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-        }

-

-        public static IEnumerable<bool> unaryFunction(object arg1, object arg2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"-")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.negate")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"abs")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.abs")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"sign")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.sign")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"floor")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.floor")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"truncate")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.truncate")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"round")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.round")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"floor")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.ceiling")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"sin")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.sin")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"cos")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.cos")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"atan")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.atan")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"exp")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.exp")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"log")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.log")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"sqrt")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.sqrt")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"\")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseComplement")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> binaryFunction(object arg1, object arg2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"+")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.add")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"-")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.subtract")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"*")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.multiply")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"/")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.divide")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"//")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.intDivide")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"mod")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.mod")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"**")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.pow")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@">>")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseShiftRight")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"<<")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseShiftLeft")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"/\")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseAnd")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"\/")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseOr")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"min")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.min")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"max")))

-                {

-                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.max")))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-        }

-

-        public static void convertFunctionCSharp(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"getDeclaringClass")))

-                {

-                    YP.write(Atom.a(@"class YPInnerClass {}"));

-                    YP.nl();

-                    YP.write(Atom.a(@"static System.Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }"));

-                    YP.nl();

-                    YP.nl();

-                    return;

-                }

-            }

-            {

-                Variable ReturnType = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable Body = new Variable();

-                Variable Level = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor(@"function", new object[] { ReturnType, Name, ArgList, Body })))

-                {

-                    YP.write(Atom.a(@"public static "));

-                    YP.write(ReturnType);

-                    YP.write(Atom.a(@" "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@") {"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(Level, 1))

-                    {

-                        convertStatementListCSharp(Body, Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        YP.nl();

-                        return;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> convertStatementListCSharp(object arg1, object x1, object x2)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-        }

-

-        public static void convertStatementListCSharp(object arg1, object Level)

-        {

-            {

-                Variable Name = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NewStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", Name, Body), RestStatements)))

-                {

-                    foreach (bool l3 in append(Body, new ListPair(new Functor1(@"label", Name), RestStatements), NewStatements))

-                    {

-                        convertStatementListCSharp(NewStatements, Level);

-                        return;

-                    }

-                }

-            }

-            {

-                Variable Type = new Variable();

-                Variable Name = new Variable();

-                Variable Expression = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"declare", Type, Name, Expression), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Type);

-                    YP.write(Atom.a(@" "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = "));

-                    convertExpressionCSharp(Expression);

-                    YP.write(Atom.a(@";"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable Expression = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"assign", Name, Expression), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = "));

-                    convertExpressionCSharp(Expression);

-                    YP.write(Atom.a(@";"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldtrue"), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"yield return true;"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldfalse"), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"yield return false;"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldbreak"), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"yield break;"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"return"), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"return;"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returntrue"), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"return true;"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returnfalse"), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"return false;"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"label", Name), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@":"));

-                    YP.nl();

-                    if (YP.termEqual(RestStatements, Atom.NIL))

-                    {

-                        convertIndentationCSharp(Level);

-                        YP.write(Atom.a(@"{}"));

-                        YP.nl();

-                        convertStatementListCSharp(RestStatements, Level);

-                        return;

-                        goto cutIf1;

-                    }

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"breakBlock", Name), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"goto "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@";"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"call", Name, ArgList), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@");"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable Obj = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Obj);

-                    YP.write(Atom.a(@"."));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@");"));

-                    YP.nl();

-                    convertStatementListCSharp(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"{"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListCSharp(Body, NextLevel);

-                        convertIndentationCSharp(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListCSharp(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-            {

-                Variable Expression = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", Expression, Body), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"if ("));

-                    convertExpressionCSharp(Expression);

-                    YP.write(Atom.a(@") {"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListCSharp(Body, NextLevel);

-                        convertIndentationCSharp(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListCSharp(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-            {

-                Variable Expression = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", Expression, Body), RestStatements)))

-                {

-                    convertIndentationCSharp(Level);

-                    YP.write(Atom.a(@"foreach (bool l"));

-                    YP.write(Level);

-                    YP.write(Atom.a(@" in "));

-                    convertExpressionCSharp(Expression);

-                    YP.write(Atom.a(@") {"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListCSharp(Body, NextLevel);

-                        convertIndentationCSharp(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListCSharp(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-        }

-

-        public static void convertIndentationCSharp(object Level)

-        {

-            {

-                Variable N = new Variable();

-                foreach (bool l2 in YP.unify(N, YP.multiply(Level, 2)))

-                {

-                    repeatWrite(Atom.a(@" "), N);

-                    return;

-                }

-            }

-        }

-

-        public static void convertArgListCSharp(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                Variable Head = new Variable();

-                Variable Tail = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Head, Tail)))

-                {

-                    convertExpressionCSharp(Head);

-                    if (YP.termNotEqual(Tail, Atom.NIL))

-                    {

-                        YP.write(Atom.a(@", "));

-                        convertArgListCSharp(Tail);

-                        return;

-                        goto cutIf1;

-                    }

-                    convertArgListCSharp(Tail);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static void convertExpressionCSharp(object arg1)

-        {

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"arg", X)))

-                {

-                    YP.write(Atom.a(@"object "));

-                    YP.write(X);

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"call", Name, ArgList)))

-                {

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Obj = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList)))

-                {

-                    YP.write(Obj);

-                    YP.write(Atom.a(@"."));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"new", Name, ArgList)))

-                {

-                    YP.write(Atom.a(@"new "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"var", Name)))

-                {

-                    YP.write(Name);

-                    return;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"null")))

-                {

-                    YP.write(Atom.a(@"null"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"not", X)))

-                {

-                    YP.write(Atom.a(@"!("));

-                    convertExpressionCSharp(X);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                Variable Y = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"and", X, Y)))

-                {

-                    YP.write(Atom.a(@"("));

-                    convertExpressionCSharp(X);

-                    YP.write(Atom.a(@") && ("));

-                    convertExpressionCSharp(Y);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"objectArray", ArgList)))

-                {

-                    YP.write(Atom.a(@"new object[] {"));

-                    convertArgListCSharp(ArgList);

-                    YP.write(Atom.a(@"}"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                Variable Codes = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))

-                {

-                    if (YP.atom(X))

-                    {

-                        YP.write(Atom.a(@"@"""));

-                        foreach (bool l4 in YP.atom_codes(X, Codes))

-                        {

-                            convertStringCodesCSharp(Codes);

-                            YP.write(Atom.a(@""""));

-                            return;

-                        }

-                    }

-                }

-            }

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))

-                {

-                    YP.write(X);

-                    return;

-                }

-            }

-        }

-

-        public static void convertStringCodesCSharp(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                Variable Code = new Variable();

-                Variable RestCodes = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Code, RestCodes)))

-                {

-                    if (YP.termEqual(Code, 34))

-                    {

-                        YP.put_code(34);

-                        YP.put_code(Code);

-                        convertStringCodesCSharp(RestCodes);

-                        return;

-                        goto cutIf1;

-                    }

-                    YP.put_code(Code);

-                    convertStringCodesCSharp(RestCodes);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static void convertFunctionJavascript(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"getDeclaringClass")))

-                {

-                    YP.write(Atom.a(@"function getDeclaringClass() { return null; }"));

-                    YP.nl();

-                    return;

-                }

-            }

-            {

-                Variable x1 = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable Body = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor(@"function", new object[] { x1, Name, ArgList, Body })))

-                {

-                    YP.write(Atom.a(@"function "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@") {"));

-                    YP.nl();

-                    convertStatementListJavascript(Body, 1);

-                    YP.write(Atom.a(@"}"));

-                    YP.nl();

-                    YP.nl();

-                    return;

-                }

-            }

-        }

-

-        public static void convertStatementListJavascript(object arg1, object arg2)

-        {

-            {

-                object x1 = arg2;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Name = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", Name, Body), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@":"));

-                    YP.nl();

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"{"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListJavascript(Body, NextLevel);

-                        convertIndentationJavascript(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListJavascript(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                Variable _Type = new Variable();

-                Variable Name = new Variable();

-                Variable Expression = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"declare", _Type, Name, Expression), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"var "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = "));

-                    convertExpressionJavascript(Expression);

-                    YP.write(Atom.a(@";"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Name = new Variable();

-                Variable Expression = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"assign", Name, Expression), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = "));

-                    convertExpressionJavascript(Expression);

-                    YP.write(Atom.a(@";"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldtrue"), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"yield true;"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldfalse"), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"yield false;"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldbreak"), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"return;"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"return"), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"return;"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returntrue"), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"return true;"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returnfalse"), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"return false;"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Name = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"breakBlock", Name), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"break "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@";"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"call", Name, ArgList), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@");"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Obj = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Obj);

-                    YP.write(Atom.a(@"."));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@");"));

-                    YP.nl();

-                    convertStatementListJavascript(RestStatements, Level);

-                    return;

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"{"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListJavascript(Body, NextLevel);

-                        convertIndentationJavascript(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListJavascript(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Expression = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", Expression, Body), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"if ("));

-                    convertExpressionJavascript(Expression);

-                    YP.write(Atom.a(@") {"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListJavascript(Body, NextLevel);

-                        convertIndentationJavascript(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListJavascript(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                Variable Expression = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", Expression, Body), RestStatements)))

-                {

-                    convertIndentationJavascript(Level);

-                    YP.write(Atom.a(@"for each (var l"));

-                    YP.write(Level);

-                    YP.write(Atom.a(@" in "));

-                    convertExpressionJavascript(Expression);

-                    YP.write(Atom.a(@") {"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        convertStatementListJavascript(Body, NextLevel);

-                        convertIndentationJavascript(Level);

-                        YP.write(Atom.a(@"}"));

-                        YP.nl();

-                        convertStatementListJavascript(RestStatements, Level);

-                        return;

-                    }

-                }

-            }

-        }

-

-        public static void convertIndentationJavascript(object Level)

-        {

-            {

-                Variable N = new Variable();

-                foreach (bool l2 in YP.unify(N, YP.multiply(Level, 2)))

-                {

-                    repeatWrite(Atom.a(@" "), N);

-                    return;

-                }

-            }

-        }

-

-        public static void convertArgListJavascript(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                Variable Head = new Variable();

-                Variable Tail = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Head, Tail)))

-                {

-                    convertExpressionJavascript(Head);

-                    if (YP.termNotEqual(Tail, Atom.NIL))

-                    {

-                        YP.write(Atom.a(@", "));

-                        convertArgListJavascript(Tail);

-                        return;

-                        goto cutIf1;

-                    }

-                    convertArgListJavascript(Tail);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static void convertExpressionJavascript(object arg1)

-        {

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"arg", X)))

-                {

-                    YP.write(X);

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"call", Name, ArgList)))

-                {

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Obj = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList)))

-                {

-                    YP.write(Obj);

-                    YP.write(Atom.a(@"."));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"new", Name, ArgList)))

-                {

-                    YP.write(Atom.a(@"new "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"var", Name)))

-                {

-                    YP.write(Name);

-                    return;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"null")))

-                {

-                    YP.write(Atom.a(@"null"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"not", X)))

-                {

-                    YP.write(Atom.a(@"!("));

-                    convertExpressionJavascript(X);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                Variable Y = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"and", X, Y)))

-                {

-                    YP.write(Atom.a(@"("));

-                    convertExpressionJavascript(X);

-                    YP.write(Atom.a(@") && ("));

-                    convertExpressionJavascript(Y);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"objectArray", ArgList)))

-                {

-                    YP.write(Atom.a(@"["));

-                    convertArgListJavascript(ArgList);

-                    YP.write(Atom.a(@"]"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                Variable Codes = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))

-                {

-                    if (YP.atom(X))

-                    {

-                        YP.write(Atom.a(@""""));

-                        foreach (bool l4 in YP.atom_codes(X, Codes))

-                        {

-                            convertStringCodesJavascript(Codes);

-                            YP.write(Atom.a(@""""));

-                            return;

-                        }

-                    }

-                }

-            }

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))

-                {

-                    YP.write(X);

-                    return;

-                }

-            }

-        }

-

-        public static void convertStringCodesJavascript(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                Variable Code = new Variable();

-                Variable RestCodes = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Code, RestCodes)))

-                {

-                    if (YP.termEqual(Code, 34))

-                    {

-                        YP.put_code(92);

-                        YP.put_code(Code);

-                        convertStringCodesJavascript(RestCodes);

-                        return;

-                        goto cutIf1;

-                    }

-                    if (YP.termEqual(Code, 92))

-                    {

-                        YP.put_code(92);

-                        YP.put_code(Code);

-                        convertStringCodesJavascript(RestCodes);

-                        return;

-                        goto cutIf1;

-                    }

-                    YP.put_code(Code);

-                    convertStringCodesJavascript(RestCodes);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static void convertFunctionPython(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"getDeclaringClass")))

-                {

-                    YP.write(Atom.a(@"def getDeclaringClass():"));

-                    YP.nl();

-                    YP.write(Atom.a(@"  return None"));

-                    YP.nl();

-                    YP.nl();

-                    return;

-                }

-            }

-            {

-                Variable x1 = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable Body = new Variable();

-                Variable Level = new Variable();

-                Variable HasBreakableBlock = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor(@"function", new object[] { x1, Name, ArgList, Body })))

-                {

-                    YP.write(Atom.a(@"def "));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@"):"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(Level, 1))

-                    {

-                        if (hasBreakableBlockPython(Body))

-                        {

-                            foreach (bool l5 in YP.unify(HasBreakableBlock, 1))

-                            {

-                                if (YP.termEqual(HasBreakableBlock, 1))

-                                {

-                                    convertIndentationPython(Level);

-                                    YP.write(Atom.a(@"doBreak = False"));

-                                    YP.nl();

-                                    foreach (bool l7 in convertStatementListPython(Body, Level, HasBreakableBlock))

-                                    {

-                                        YP.nl();

-                                        return;

-                                    }

-                                    goto cutIf2;

-                                }

-                                foreach (bool l6 in convertStatementListPython(Body, Level, HasBreakableBlock))

-                                {

-                                    YP.nl();

-                                    return;

-                                }

-                            cutIf2:

-                                { }

-                            }

-                            goto cutIf1;

-                        }

-                        foreach (bool l4 in YP.unify(HasBreakableBlock, 0))

-                        {

-                            if (YP.termEqual(HasBreakableBlock, 1))

-                            {

-                                convertIndentationPython(Level);

-                                YP.write(Atom.a(@"doBreak = False"));

-                                YP.nl();

-                                foreach (bool l6 in convertStatementListPython(Body, Level, HasBreakableBlock))

-                                {

-                                    YP.nl();

-                                    return;

-                                }

-                                goto cutIf3;

-                            }

-                            foreach (bool l5 in convertStatementListPython(Body, Level, HasBreakableBlock))

-                            {

-                                YP.nl();

-                                return;

-                            }

-                        cutIf3:

-                            { }

-                        }

-                    cutIf1:

-                        { }

-                    }

-                }

-            }

-        }

-

-        public static bool hasBreakableBlockPython(object arg1)

-        {

-            {

-                Variable _Name = new Variable();

-                Variable _Body = new Variable();

-                Variable _RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", _Name, _Body), _RestStatements)))

-                {

-                    return true;

-                }

-            }

-            {

-                Variable Body = new Variable();

-                Variable _RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), _RestStatements)))

-                {

-                    if (hasBreakableBlockPython(Body))

-                    {

-                        return true;

-                    }

-                }

-            }

-            {

-                Variable _Expression = new Variable();

-                Variable Body = new Variable();

-                Variable _RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", _Expression, Body), _RestStatements)))

-                {

-                    if (hasBreakableBlockPython(Body))

-                    {

-                        return true;

-                    }

-                }

-            }

-            {

-                Variable _Expression = new Variable();

-                Variable Body = new Variable();

-                Variable _RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", _Expression, Body), _RestStatements)))

-                {

-                    if (hasBreakableBlockPython(Body))

-                    {

-                        return true;

-                    }

-                }

-            }

-            {

-                Variable x1 = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, RestStatements)))

-                {

-                    if (hasBreakableBlockPython(RestStatements))

-                    {

-                        return true;

-                    }

-                }

-            }

-            return false;

-        }

-

-        public static IEnumerable<bool> convertStatementListPython(object arg1, object arg2, object arg3)

-        {

-            {

-                object x1 = arg2;

-                object x2 = arg3;

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    yield return true;

-                    yield break;

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Name = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", Name, Body), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = False"));

-                    YP.nl();

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"for _ in [1]:"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))

-                        {

-                            convertIndentationPython(Level);

-                            YP.write(Atom.a(@"if "));

-                            YP.write(Name);

-                            YP.write(Atom.a(@":"));

-                            YP.nl();

-                            convertIndentationPython(NextLevel);

-                            YP.write(Atom.a(@"doBreak = False"));

-                            YP.nl();

-                            convertIndentationPython(Level);

-                            YP.write(Atom.a(@"if doBreak:"));

-                            YP.nl();

-                            convertIndentationPython(NextLevel);

-                            YP.write(Atom.a(@"break"));

-                            YP.nl();

-                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable _Type = new Variable();

-                Variable Name = new Variable();

-                Variable Expression = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"declare", _Type, Name, Expression), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = "));

-                    convertExpressionPython(Expression);

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Name = new Variable();

-                Variable Expression = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"assign", Name, Expression), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = "));

-                    convertExpressionPython(Expression);

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldtrue"), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"yield True"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldfalse"), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"yield False"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldbreak"), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"return"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"return"), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"return"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returntrue"), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"return True"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returnfalse"), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"return False"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Name = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"breakBlock", Name), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@" = True"));

-                    YP.nl();

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"doBreak = True"));

-                    YP.nl();

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"break"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"call", Name, ArgList), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@")"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Obj = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                Variable RestStatements = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Obj);

-                    YP.write(Atom.a(@"."));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@")"));

-                    YP.nl();

-                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                    {

-                        yield return true;

-                        yield break;

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), RestStatements)))

-                {

-                    if (YP.termEqual(HasBreakableBlock, 1))

-                    {

-                        convertIndentationPython(Level);

-                        YP.write(Atom.a(@"for _ in [1]:"));

-                        YP.nl();

-                        foreach (bool l4 in YP.unify(NextLevel, YP.add(Level, 1)))

-                        {

-                            foreach (bool l5 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))

-                            {

-                                if (YP.termEqual(HasBreakableBlock, 1))

-                                {

-                                    if (YP.greaterThan(Level, 1))

-                                    {

-                                        convertIndentationPython(Level);

-                                        YP.write(Atom.a(@"if doBreak:"));

-                                        YP.nl();

-                                        convertIndentationPython(NextLevel);

-                                        YP.write(Atom.a(@"break"));

-                                        YP.nl();

-                                        foreach (bool l8 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                                        {

-                                            yield return true;

-                                            yield break;

-                                        }

-                                        goto cutIf3;

-                                    }

-                                    foreach (bool l7 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                                    {

-                                        yield return true;

-                                        yield break;

-                                    }

-                                cutIf3:

-                                    goto cutIf2;

-                                }

-                                foreach (bool l6 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            cutIf2:

-                                { }

-                            }

-                        }

-                        goto cutIf1;

-                    }

-                    foreach (bool l3 in YP.unify(NextLevel, Level))

-                    {

-                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))

-                        {

-                            if (YP.termEqual(HasBreakableBlock, 1))

-                            {

-                                if (YP.greaterThan(Level, 1))

-                                {

-                                    convertIndentationPython(Level);

-                                    YP.write(Atom.a(@"if doBreak:"));

-                                    YP.nl();

-                                    convertIndentationPython(NextLevel);

-                                    YP.write(Atom.a(@"break"));

-                                    YP.nl();

-                                    foreach (bool l7 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                                    {

-                                        yield return true;

-                                        yield break;

-                                    }

-                                    goto cutIf5;

-                                }

-                                foreach (bool l6 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                            cutIf5:

-                                goto cutIf4;

-                            }

-                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        cutIf4:

-                            { }

-                        }

-                    }

-                cutIf1:

-                    { }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Expression = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", Expression, Body), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"if "));

-                    convertExpressionPython(Expression);

-                    YP.write(Atom.a(@":"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))

-                        {

-                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        }

-                    }

-                }

-            }

-            {

-                object Level = arg2;

-                object HasBreakableBlock = arg3;

-                Variable Expression = new Variable();

-                Variable Body = new Variable();

-                Variable RestStatements = new Variable();

-                Variable NextLevel = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", Expression, Body), RestStatements)))

-                {

-                    convertIndentationPython(Level);

-                    YP.write(Atom.a(@"for l"));

-                    YP.write(Level);

-                    YP.write(Atom.a(@" in "));

-                    convertExpressionPython(Expression);

-                    YP.write(Atom.a(@":"));

-                    YP.nl();

-                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))

-                    {

-                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))

-                        {

-                            if (YP.termEqual(HasBreakableBlock, 1))

-                            {

-                                convertIndentationPython(Level);

-                                YP.write(Atom.a(@"if doBreak:"));

-                                YP.nl();

-                                convertIndentationPython(NextLevel);

-                                YP.write(Atom.a(@"break"));

-                                YP.nl();

-                                foreach (bool l6 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                                {

-                                    yield return true;

-                                    yield break;

-                                }

-                                goto cutIf6;

-                            }

-                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))

-                            {

-                                yield return true;

-                                yield break;

-                            }

-                        cutIf6:

-                            { }

-                        }

-                    }

-                }

-            }

-        }

-

-        public static void convertIndentationPython(object Level)

-        {

-            {

-                Variable N = new Variable();

-                foreach (bool l2 in YP.unify(N, YP.multiply(Level, 2)))

-                {

-                    repeatWrite(Atom.a(@" "), N);

-                    return;

-                }

-            }

-        }

-

-        public static void convertArgListPython(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                Variable Head = new Variable();

-                Variable Tail = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Head, Tail)))

-                {

-                    convertExpressionPython(Head);

-                    if (YP.termNotEqual(Tail, Atom.NIL))

-                    {

-                        YP.write(Atom.a(@", "));

-                        convertArgListPython(Tail);

-                        return;

-                        goto cutIf1;

-                    }

-                    convertArgListPython(Tail);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static void convertExpressionPython(object arg1)

-        {

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"arg", X)))

-                {

-                    YP.write(X);

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"call", Name, ArgList)))

-                {

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Obj = new Variable();

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList)))

-                {

-                    YP.write(Obj);

-                    YP.write(Atom.a(@"."));

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"new", Name, ArgList)))

-                {

-                    YP.write(Name);

-                    YP.write(Atom.a(@"("));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable Name = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"var", Name)))

-                {

-                    YP.write(Name);

-                    return;

-                }

-            }

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.a(@"null")))

-                {

-                    YP.write(Atom.a(@"None"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"not", X)))

-                {

-                    YP.write(Atom.a(@"not ("));

-                    convertExpressionPython(X);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                Variable Y = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor2(@"and", X, Y)))

-                {

-                    YP.write(Atom.a(@"("));

-                    convertExpressionPython(X);

-                    YP.write(Atom.a(@") and ("));

-                    convertExpressionPython(Y);

-                    YP.write(Atom.a(@")"));

-                    return;

-                }

-            }

-            {

-                Variable ArgList = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"objectArray", ArgList)))

-                {

-                    YP.write(Atom.a(@"["));

-                    convertArgListPython(ArgList);

-                    YP.write(Atom.a(@"]"));

-                    return;

-                }

-            }

-            {

-                Variable X = new Variable();

-                Variable Codes = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))

-                {

-                    if (YP.atom(X))

-                    {

-                        YP.write(Atom.a(@""""));

-                        foreach (bool l4 in YP.atom_codes(X, Codes))

-                        {

-                            convertStringCodesPython(Codes);

-                            YP.write(Atom.a(@""""));

-                            return;

-                        }

-                    }

-                }

-            }

-            {

-                Variable X = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))

-                {

-                    YP.write(X);

-                    return;

-                }

-            }

-        }

-

-        public static void convertStringCodesPython(object arg1)

-        {

-            {

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    return;

-                }

-            }

-            {

-                Variable Code = new Variable();

-                Variable RestCodes = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(Code, RestCodes)))

-                {

-                    if (YP.termEqual(Code, 34))

-                    {

-                        YP.put_code(92);

-                        YP.put_code(Code);

-                        convertStringCodesPython(RestCodes);

-                        return;

-                        goto cutIf1;

-                    }

-                    if (YP.termEqual(Code, 92))

-                    {

-                        YP.put_code(92);

-                        YP.put_code(Code);

-                        convertStringCodesPython(RestCodes);

-                        return;

-                        goto cutIf1;

-                    }

-                    YP.put_code(Code);

-                    convertStringCodesPython(RestCodes);

-                    return;

-                cutIf1:

-                    { }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> member(object X, object arg2)

-        {

-            {

-                Variable x2 = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(X, x2)))

-                {

-                    yield return false;

-                }

-            }

-            {

-                Variable x2 = new Variable();

-                Variable Rest = new Variable();

-                foreach (bool l2 in YP.unify(arg2, new ListPair(x2, Rest)))

-                {

-                    foreach (bool l3 in member(X, Rest))

-                    {

-                        yield return false;

-                    }

-                }

-            }

-        }

-

-        public static IEnumerable<bool> append(object arg1, object arg2, object arg3)

-        {

-            {

-                Variable List = new Variable();

-                foreach (bool l2 in YP.unify(arg1, Atom.NIL))

-                {

-                    foreach (bool l3 in YP.unify(arg2, List))

-                    {

-                        foreach (bool l4 in YP.unify(arg3, List))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-            {

-                object List2 = arg2;

-                Variable X = new Variable();

-                Variable List1 = new Variable();

-                Variable List12 = new Variable();

-                foreach (bool l2 in YP.unify(arg1, new ListPair(X, List1)))

-                {

-                    foreach (bool l3 in YP.unify(arg3, new ListPair(X, List12)))

-                    {

-                        foreach (bool l4 in append(List1, List2, List12))

-                        {

-                            yield return false;

-                        }

-                    }

-                }

-            }

-        }

-

-    }

-}

+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * Redistribution and use in source and binary forms, with or without 
+ * modification, are permitted provided that the following conditions are met:
+ * 
+ *     * Redistributions of source code must retain the above copyright 
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright 
+ *       notice, this list of conditions and the following disclaimer in the 
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the names of its contributors 
+ *       may be used to endorse or promote products derived from this software 
+ *       without specific prior written permission.
+ * 
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+ * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+ * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+ * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+using System;
+using System.IO;
+using System.Collections;
+using System.Collections.Generic;
+using System.Text;
+using System.CodeDom.Compiler;
+
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class YPCompiler
+    {
+        private class CompilerState
+        {
+            public IndexedAnswers _pred = new IndexedAnswers();
+            public Dictionary<YP.NameArity, Atom> _moduleForNameArity = new Dictionary<YP.NameArity, Atom>();
+            public int _gensymCounter;
+            public bool _useFinalCutCode;
+            public Variable _finalCutCode;
+            public bool _codeUsesYield;
+            public Atom _determinism;
+            // a list of '='(Name, Variable)
+            public List<object> _variableNames;
+
+            // Make these static functions that explicitly take the State so Prolog can call it.
+
+            /// <summary>
+            /// Make a new CompilerState and bind it to State.
+            /// </summary>
+            /// <param name="State"></param>
+            /// <returns></returns>
+            public static IEnumerable<bool> make(object State)
+            {
+                return YP.unify(State, new CompilerState());
+            }
+
+            public static void assertPred(object State, object Pred, object Determinism)
+            {
+                State = YP.getValue(State);
+                object functorName = YP.getFunctorName(Pred);
+                object[] functorArgs = YP.getFunctorArgs(Pred);
+                // Debug: Should check if it's already asserted and is the same.
+                ((CompilerState)State)._pred.addAnswer
+                    (new object[] { functorName, functorArgs.Length, Pred, YP.getValue(Determinism) });
+            }
+
+            public static void assertModuleForNameArity(object State, object Name, object Arity, object Module)
+            {
+                State = YP.getValue(State);
+                Name = YP.getValue(Name);
+                Arity = YP.getValue(Arity);
+                Module = YP.getValue(Module);
+                // If the Module Atom comes from the parser, it always has null _declaringClass.
+                if (Module is Atom && ((Atom)Module)._module == null && Name is Atom && Arity is int)
+                {
+                    // Replace a previous entry if it exists.
+                    ((CompilerState)State)._moduleForNameArity[new YP.NameArity((Atom)Name, (int)Arity)] =
+                        (Atom)Module;
+                }
+            }
+
+            public static void startFunction(object State, object Head)
+            {
+                State = YP.getValue(State);
+                ((CompilerState)State)._gensymCounter = 0;
+                ((CompilerState)State)._useFinalCutCode = false;
+                ((CompilerState)State)._finalCutCode = new Variable();
+                ((CompilerState)State)._codeUsesYield = false;
+                if (CompilerState.isDetNoneOut(State, Head))
+                    ((CompilerState)State)._determinism = Atom.a("detNoneOut");
+                else if (CompilerState.isSemidetNoneOut(State, Head))
+                    ((CompilerState)State)._determinism = Atom.a("semidetNoneOut");
+                else
+                    ((CompilerState)State)._determinism = Atom.a("nondet");
+            }
+
+            public static void setCodeUsesYield(object State)
+            {
+                State = YP.getValue(State);
+                ((CompilerState)State)._codeUsesYield = true;
+            }
+
+            public static bool codeUsesYield(object State)
+            {
+                State = YP.getValue(State);
+                return ((CompilerState)State)._codeUsesYield;
+            }
+
+            public static bool determinismEquals(object State, object Term)
+            {
+                State = YP.getValue(State);
+                return YP.termEqual(((CompilerState)State)._determinism, Term);
+            }
+
+            /// <summary>
+            /// Set _variableNames to a new list of (Name = Variable) for each unique variable in rule.
+            /// If the variable is in variableNameSuggestions, use it, otherwise use x1, x2, etc.
+            /// </summary>
+            /// <param name="State"></param>
+            /// <param name="rule"></param>
+            /// <param name="variableNameSuggestions"></param>
+            public static void newVariableNames(object State, object Rule, object VariableNameSuggestions)
+            {
+                State = YP.getValue(State);
+                List<Variable> variablesSet = new List<Variable>();
+                YP.addUniqueVariables(Rule, variablesSet);
+
+                ((CompilerState)State)._variableNames = new List<object>();
+                int xCounter = 0;
+                foreach (Variable variable in variablesSet)
+                    ((CompilerState)State)._variableNames.Add
+                        (new Functor2(Atom.a("="), makeVariableName(variable, VariableNameSuggestions, ++xCounter),
+                                      variable));
+            }
+
+            private static object makeVariableName(object variable, object variableNameSuggestions, int xCounter)
+            {
+                // Debug: should require named variables to start with _ or capital. Should
+                //   check for duplicates and clashes with keywords.
+                for (object element = YP.getValue(variableNameSuggestions);
+                     element is Functor2 && ((Functor2)element)._name == Atom.DOT;
+                     element = YP.getValue(((Functor2)element)._arg2))
+                {
+                    object suggestionPair = YP.getValue(((Functor2)element)._arg1);
+                    if (sameVariable(variable, ((Functor2)suggestionPair)._arg2))
+                    {
+                        Atom suggestion = (Atom)YP.getValue(((Functor2)suggestionPair)._arg1);
+                        if (suggestion.Equals(Atom.a("Atom")))
+                            suggestion = Atom.a("Atom_1");
+                        if (suggestion.Equals(Atom.a("Variable")))
+                            suggestion = Atom.a("Variable_1");
+                        if (suggestion.Equals(Atom.a("Functor")))
+                            suggestion = Atom.a("Functor_1");
+                        return suggestion;
+                    }
+                }
+
+                return Atom.a("x" + xCounter);
+            }
+
+            /// <summary>
+            /// Unify Result with the name assigned by CompilerState.newVariableNames in State._variableNames
+            ///   for variable.
+            /// </summary>
+            /// <param name="variable">a Variable</param>
+            /// <param name="State"></param>
+            /// <param name="Result">the assigned Name</param>
+            public static IEnumerable<bool> getVariableName(object State, object variable, object Result)
+            {
+                State = YP.getValue(State);
+                foreach (object variableInfo in ((CompilerState)State)._variableNames)
+                {
+                    if (variableInfo is Functor2 && ((Functor2)variableInfo)._name.Equals(Atom.a("=")))
+                    {
+                        if (sameVariable(variable, ((Functor2)variableInfo)._arg2))
+                            return YP.unify(Result, ((Functor2)variableInfo)._arg1);
+                    }
+                }
+
+                // We set up names for all unique variables, so this should never happen.
+                throw new PrologException(Atom.a("Can't find entry in _variableNames"));
+            }
+
+            public static IEnumerable<bool> variableNamesList(object State, object VariableNamesList)
+            {
+                State = YP.getValue(State);
+                return YP.unify(VariableNamesList, ListPair.make(((CompilerState)State)._variableNames));
+            }
+
+            public static IEnumerable<bool> gensym(object State, object Base, object Symbol)
+            {
+                State = YP.getValue(State);
+                return YP.unify(Symbol, Atom.a(Base.ToString() + ++((CompilerState)State)._gensymCounter));
+            }
+
+            public static bool isDetNoneOut(object State, object Term)
+            {
+                State = YP.getValue(State);
+                object functorName = YP.getFunctorName(Term);
+                object[] functorArgs = YP.getFunctorArgs(Term);
+
+                Variable pred = new Variable();
+                foreach (bool l1 in ((CompilerState)State)._pred.match
+                    (new object[] { functorName, functorArgs.Length, pred, Atom.a("det") }))
+                {
+                    if (CompilerState.isNoneOut(YP.getFunctorArgs(pred.getValue())))
+                    {
+                        return true;
+                    }
+                }
+
+                return false;
+            }
+
+            public static bool isSemidetNoneOut(object State, object Term)
+            {
+                State = YP.getValue(State);
+                object functorName = YP.getFunctorName(Term);
+                object[] functorArgs = YP.getFunctorArgs(Term);
+
+                Variable pred = new Variable();
+                foreach (bool l1 in ((CompilerState)State)._pred.match
+                    (new object[] { functorName, functorArgs.Length, pred, Atom.a("semidet") }))
+                {
+                    if (CompilerState.isNoneOut(YP.getFunctorArgs(pred.getValue())))
+                    {
+                        return true;
+                    }
+                }
+
+                return false;
+            }
+
+            /// <summary>
+            /// Return false if any of args is out, otherwise true.
+            /// args is an array of ::(Type,Mode) where Mode is in or out.
+            /// </summary>
+            /// <param name="args"></param>
+            /// <returns></returns>
+            private static bool isNoneOut(object[] args)
+            {
+                foreach (object arg in args)
+                {
+                    if (arg is Functor2 && ((Functor2)arg)._name == Atom.a("::") &&
+                        ((Functor2)arg)._arg2 == Atom.a("out"))
+                        return false;
+                }
+                return true;
+            }
+
+            public static bool nameArityHasModule(object State, object Name, object Arity, object Module)
+            {
+                State = YP.getValue(State);
+                Name = YP.getValue(Name);
+                Arity = YP.getValue(Arity);
+                Module = YP.getValue(Module);
+                if (Name is Atom && Arity is int)
+                {
+                    Atom FoundModule;
+                    if (!((CompilerState)State)._moduleForNameArity.TryGetValue
+                         (new YP.NameArity((Atom)Name, (int)Arity), out FoundModule))
+                        return false;
+                    return FoundModule == Module;
+                }
+                return false;
+            }
+        }
+
+        /// <summary>
+        /// Use CodeDomProvider to compile the functionCode and return a YP.IClause.
+        /// The function name must be "function" and have nArgs arguments.
+        /// </summary>
+        /// <param name="functionCode">the code for the iterator, such as
+        /// "public static IEnumerable<bool> function() { yield return false; }"
+        /// </param>
+        /// <param name="nArgs">the number of args in the function</param>
+        /// <param name="declaringClass">if not null, then use the functionCode inside a class which
+        /// inherits from contextClass, so that references in functionCode to methods in declaringClass don't
+        /// have to be qualified</param>
+        /// <returns>a new YP.IClause object on which you can call match(object[] args) where
+        /// args length is nArgs</returns>
+        public static YP.IClause compileAnonymousFunction(string functionCode, int nArgs, Type declaringClass)
+        {
+            CompilerParameters parameters = new CompilerParameters();
+            // This gets the location of the System assembly.
+            parameters.ReferencedAssemblies.Add(typeof(System.Int32).Assembly.Location);
+            // This gets the location of this assembly which also has YieldProlog.YP, etc.
+            parameters.ReferencedAssemblies.Add(typeof(YPCompiler).Assembly.Location);
+            if (declaringClass != null)
+                parameters.ReferencedAssemblies.Add(declaringClass.Assembly.Location);
+            parameters.GenerateInMemory = true;
+
+            StringBuilder sourceCode = new StringBuilder();
+            sourceCode.Append(@"
+using System;
+using System.Collections.Generic;
+using YieldProlog;
+
+namespace Temporary {
+  public class Temporary : YP.IClause {
+    public class Inner" + (declaringClass == null ? "" : " : " + declaringClass.FullName) + @" {
+");
+            sourceCode.Append(functionCode);
+            // Basically, match applies the args to function.
+            sourceCode.Append(@"
+    }
+    public IEnumerable<bool> match(object[] args) {
+      return Inner.function(");
+            if (nArgs >= 1)
+                sourceCode.Append("args[0]");
+            for (int i = 1; i < nArgs; ++i)
+                sourceCode.Append(", args[" + i + "]");
+            sourceCode.Append(@");
+    }
+  }
+}
+");
+
+            CompilerResults results = CodeDomProvider.CreateProvider
+                ("CSharp").CompileAssemblyFromSource(parameters, sourceCode.ToString());
+            if (results.Errors.Count > 0)
+                throw new Exception("Error evaluating code: " + results.Errors[0]);
+
+            // Return a new Temporary.Temporary object.
+            return (YP.IClause)results.CompiledAssembly.GetType
+                ("Temporary.Temporary").GetConstructor(Type.EmptyTypes).Invoke(null);
+        }
+
+        // Compiler output follows.
+
+        class YPInnerClass { }
+        static Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }
+
+        public static void repeatWrite(object arg1, object N)
+        {
+            {
+                object _Value = arg1;
+                if (YP.termEqual(N, 0))
+                {
+                    return;
+                }
+            }
+            {
+                object Value = arg1;
+                Variable NextN = new Variable();
+                YP.write(Value);
+                foreach (bool l2 in YP.unify(NextN, YP.subtract(N, 1)))
+                {
+                    repeatWrite(Value, NextN);
+                    return;
+                }
+            }
+        }
+
+        public static bool sameVariable(object Variable1, object Variable2)
+        {
+            {
+                if (YP.var(Variable1))
+                {
+                    if (YP.var(Variable2))
+                    {
+                        if (YP.termEqual(Variable1, Variable2))
+                        {
+                            return true;
+                        }
+                    }
+                }
+            }
+            return false;
+        }
+
+        public static IEnumerable<bool> makeFunctionPseudoCode(object RuleList, object FunctionCode)
+        {
+            {
+                Variable State = new Variable();
+                foreach (bool l2 in CompilerState.make(State))
+                {
+                    CompilerState.assertPred(State, Atom.a(@"nl"), Atom.a(@"det"));
+                    CompilerState.assertPred(State, new Functor1(@"write", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"det"));
+                    CompilerState.assertPred(State, new Functor1(@"put_code", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"det"));
+                    CompilerState.assertPred(State, new Functor1(@"throw", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"det"));
+                    CompilerState.assertPred(State, new Functor1(@"var", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor1(@"nonvar", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor1(@"atom", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor1(@"number", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor2(@"==", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor2(@"\==", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor2(@"@<", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor2(@"@=<", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor2(@"@>", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    CompilerState.assertPred(State, new Functor2(@"@>=", new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in")), new Functor2(@"::", Atom.a(@"univ"), Atom.a(@"in"))), Atom.a(@"semidet"));
+                    processCompilerDirectives(RuleList, State);
+                    foreach (bool l3 in YP.unify(FunctionCode, Atom.a(@"getDeclaringClass")))
+                    {
+                        yield return false;
+                    }
+                    foreach (bool l3 in makeFunctionPseudoCode3(RuleList, State, FunctionCode))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static void processCompilerDirectives(object arg1, object arg2)
+        {
+            {
+                object _State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                object State = arg2;
+                Variable Pred = new Variable();
+                Variable Determinism = new Variable();
+                Variable x3 = new Variable();
+                Variable RestRules = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor1(@":-", new Functor1(@"pred", new Functor2(@"is", Pred, Determinism))), x3), RestRules)))
+                {
+                    CompilerState.assertPred(State, Pred, Determinism);
+                    processCompilerDirectives(RestRules, State);
+                    return;
+                }
+            }
+            {
+                object State = arg2;
+                Variable Module = new Variable();
+                Variable PredicateList = new Variable();
+                Variable x3 = new Variable();
+                Variable RestRules = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor1(@":-", new Functor2(@"import", Module, PredicateList)), x3), RestRules)))
+                {
+                    foreach (bool l3 in importPredicateList(State, Module, PredicateList))
+                    {
+                        processCompilerDirectives(RestRules, State);
+                        return;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable x1 = new Variable();
+                Variable x2 = new Variable();
+                Variable RestRules = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor1(@":-", x1), x2), RestRules)))
+                {
+                    processCompilerDirectives(RestRules, State);
+                    return;
+                }
+            }
+            {
+                object State = arg2;
+                Variable Head = new Variable();
+                Variable _Body = new Variable();
+                Variable x3 = new Variable();
+                Variable RestRules = new Variable();
+                Variable Name = new Variable();
+                Variable Arity = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", new Functor2(@":-", Head, _Body), x3), RestRules)))
+                {
+                    foreach (bool l3 in YP.functor(Head, Name, Arity))
+                    {
+                        CompilerState.assertModuleForNameArity(State, Name, Arity, Atom.a(@""));
+                        processCompilerDirectives(RestRules, State);
+                        return;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable Fact = new Variable();
+                Variable x2 = new Variable();
+                Variable RestRules = new Variable();
+                Variable Name = new Variable();
+                Variable Arity = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", Fact, x2), RestRules)))
+                {
+                    foreach (bool l3 in YP.functor(Fact, Name, Arity))
+                    {
+                        CompilerState.assertModuleForNameArity(State, Name, Arity, Atom.a(@""));
+                        processCompilerDirectives(RestRules, State);
+                        return;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable x1 = new Variable();
+                Variable RestRules = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, RestRules)))
+                {
+                    processCompilerDirectives(RestRules, State);
+                    return;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> importPredicateList(object arg1, object arg2, object arg3)
+        {
+            {
+                object _State = arg1;
+                object _Module = arg2;
+                foreach (bool l2 in YP.unify(arg3, Atom.NIL))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+            {
+                object State = arg1;
+                object Module = arg2;
+                Variable Name = new Variable();
+                Variable Arity = new Variable();
+                Variable Rest = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new ListPair(new Functor2(@"/", Name, Arity), Rest)))
+                {
+                    CompilerState.assertModuleForNameArity(State, Name, Arity, Module);
+                    foreach (bool l3 in importPredicateList(State, Module, Rest))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg1;
+                object Module = arg2;
+                Variable x3 = new Variable();
+                Variable Rest = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new ListPair(x3, Rest)))
+                {
+                    foreach (bool l3 in importPredicateList(State, Module, Rest))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> makeFunctionPseudoCode3(object RuleList, object State, object FunctionCode)
+        {
+            {
+                Variable SamePredicateRuleList = new Variable();
+                Variable RestRules = new Variable();
+                foreach (bool l2 in samePredicateRuleList(RuleList, SamePredicateRuleList, RestRules))
+                {
+                    if (YP.termNotEqual(SamePredicateRuleList, Atom.NIL))
+                    {
+                        foreach (bool l4 in compileSamePredicateFunction(SamePredicateRuleList, State, FunctionCode))
+                        {
+                            yield return false;
+                        }
+                        foreach (bool l4 in makeFunctionPseudoCode3(RestRules, State, FunctionCode))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileSamePredicateFunction(object SamePredicateRuleList, object State, object FunctionCode)
+        {
+            {
+                Variable FirstRule = new Variable();
+                Variable x5 = new Variable();
+                Variable x6 = new Variable();
+                Variable x7 = new Variable();
+                Variable Head = new Variable();
+                Variable x9 = new Variable();
+                Variable ArgAssignments = new Variable();
+                Variable Calls = new Variable();
+                Variable Rule = new Variable();
+                Variable VariableNameSuggestions = new Variable();
+                Variable ClauseBag = new Variable();
+                Variable Name = new Variable();
+                Variable ArgsList = new Variable();
+                Variable FunctionArgNames = new Variable();
+                Variable MergedArgName = new Variable();
+                Variable ArgName = new Variable();
+                Variable MergedArgNames = new Variable();
+                Variable FunctionArgs = new Variable();
+                Variable BodyCode = new Variable();
+                Variable ReturnType = new Variable();
+                Variable BodyWithReturn = new Variable();
+                foreach (bool l2 in YP.unify(new ListPair(new Functor2(@"f", FirstRule, x5), x6), SamePredicateRuleList))
+                {
+                    foreach (bool l3 in YP.unify(FirstRule, new Functor1(@":-", x7)))
+                    {
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in YP.unify(new Functor2(@":-", Head, x9), FirstRule))
+                    {
+                        CompilerState.startFunction(State, Head);
+                        FindallAnswers findallAnswers3 = new FindallAnswers(new Functor2(@"f", ArgAssignments, Calls));
+                        foreach (bool l4 in member(new Functor2(@"f", Rule, VariableNameSuggestions), SamePredicateRuleList))
+                        {
+                            foreach (bool l5 in compileBodyWithHeadBindings(Rule, VariableNameSuggestions, State, ArgAssignments, Calls))
+                            {
+                                findallAnswers3.add();
+                            }
+                        }
+                        foreach (bool l4 in findallAnswers3.result(ClauseBag))
+                        {
+                            foreach (bool l5 in YP.univ(Head, new ListPair(Name, ArgsList)))
+                            {
+                                foreach (bool l6 in getFunctionArgNames(ArgsList, 1, FunctionArgNames))
+                                {
+                                    FindallAnswers findallAnswers4 = new FindallAnswers(MergedArgName);
+                                    foreach (bool l7 in member(ArgName, FunctionArgNames))
+                                    {
+                                        foreach (bool l8 in argAssignedAll(ArgName, ClauseBag, MergedArgName))
+                                        {
+                                            findallAnswers4.add();
+                                            goto cutIf5;
+                                        }
+                                        foreach (bool l8 in YP.unify(MergedArgName, ArgName))
+                                        {
+                                            findallAnswers4.add();
+                                        }
+                                    cutIf5:
+                                        { }
+                                    }
+                                    foreach (bool l7 in findallAnswers4.result(MergedArgNames))
+                                    {
+                                        foreach (bool l8 in maplist_arg(MergedArgNames, FunctionArgs))
+                                        {
+                                            foreach (bool l9 in maplist_compileClause(ClauseBag, MergedArgNames, BodyCode))
+                                            {
+                                                if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))
+                                                {
+                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"void")))
+                                                    {
+                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                        {
+                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))
+                                                            {
+                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                                {
+                                                                    yield return false;
+                                                                }
+                                                            }
+                                                            goto cutIf7;
+                                                        }
+                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                    cutIf7:
+                                                        { }
+                                                    }
+                                                    goto cutIf6;
+                                                }
+                                                if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                {
+                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"bool")))
+                                                    {
+                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                        {
+                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))
+                                                            {
+                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                                {
+                                                                    yield return false;
+                                                                }
+                                                            }
+                                                            goto cutIf9;
+                                                        }
+                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                    cutIf9:
+                                                        { }
+                                                    }
+                                                    goto cutIf8;
+                                                }
+                                                foreach (bool l10 in YP.unify(ReturnType, Atom.a(@"IEnumerable<bool>")))
+                                                {
+                                                    if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                    {
+                                                        foreach (bool l12 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                        goto cutIf10;
+                                                    }
+                                                    foreach (bool l11 in YP.unify(BodyWithReturn, BodyCode))
+                                                            {
+                                                        foreach (bool l12 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                        {
+                                                            yield return false;
+                                                        }
+                                                    }
+                                                cutIf10:
+                                                    { }
+                                                }
+                                            cutIf8:
+                                            cutIf6:
+                                                { }
+                                            }
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                        goto cutIf2;
+                    }
+                    foreach (bool l3 in YP.unify(Head, FirstRule))
+                    {
+                        CompilerState.startFunction(State, Head);
+                        FindallAnswers findallAnswers11 = new FindallAnswers(new Functor2(@"f", ArgAssignments, Calls));
+                        foreach (bool l4 in member(new Functor2(@"f", Rule, VariableNameSuggestions), SamePredicateRuleList))
+                        {
+                            foreach (bool l5 in compileBodyWithHeadBindings(Rule, VariableNameSuggestions, State, ArgAssignments, Calls))
+                            {
+                                findallAnswers11.add();
+                            }
+                        }
+                        foreach (bool l4 in findallAnswers11.result(ClauseBag))
+                        {
+                            foreach (bool l5 in YP.univ(Head, new ListPair(Name, ArgsList)))
+                            {
+                                foreach (bool l6 in getFunctionArgNames(ArgsList, 1, FunctionArgNames))
+                                {
+                                    FindallAnswers findallAnswers12 = new FindallAnswers(MergedArgName);
+                                    foreach (bool l7 in member(ArgName, FunctionArgNames))
+                                    {
+                                        foreach (bool l8 in argAssignedAll(ArgName, ClauseBag, MergedArgName))
+                                        {
+                                            findallAnswers12.add();
+                                            goto cutIf13;
+                                        }
+                                        foreach (bool l8 in YP.unify(MergedArgName, ArgName))
+                                        {
+                                            findallAnswers12.add();
+                                        }
+                                    cutIf13:
+                                        { }
+                                    }
+                                    foreach (bool l7 in findallAnswers12.result(MergedArgNames))
+                                    {
+                                        foreach (bool l8 in maplist_arg(MergedArgNames, FunctionArgs))
+                                        {
+                                            foreach (bool l9 in maplist_compileClause(ClauseBag, MergedArgNames, BodyCode))
+                                            {
+                                                if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))
+                                                {
+                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"void")))
+                                                    {
+                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                        {
+                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))
+                                                            {
+                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                                {
+                                                                    yield return false;
+                                                                }
+                                                            }
+                                                            goto cutIf15;
+                                                        }
+                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                    cutIf15:
+                                                        { }
+                                                    }
+                                                    goto cutIf14;
+                                                }
+                                                if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                {
+                                                    foreach (bool l11 in YP.unify(ReturnType, Atom.a(@"bool")))
+                                                    {
+                                                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                        {
+                                                            foreach (bool l13 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))
+                                                            {
+                                                                foreach (bool l14 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                                {
+                                                                    yield return false;
+                                                                }
+                                                            }
+                                                            goto cutIf17;
+                                                        }
+                                                        foreach (bool l12 in YP.unify(BodyWithReturn, BodyCode))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                    cutIf17:
+                                                        { }
+                                                    }
+                                                    goto cutIf16;
+                                                }
+                                                foreach (bool l10 in YP.unify(ReturnType, Atom.a(@"IEnumerable<bool>")))
+                                                {
+                                                    if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                                                    {
+                                                        foreach (bool l12 in append(BodyCode, new ListPair(Atom.a(@"returnfalse"), Atom.NIL), BodyWithReturn))
+                                                        {
+                                                            foreach (bool l13 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                            {
+                                                                yield return false;
+                                                            }
+                                                        }
+                                                        goto cutIf18;
+                                                    }
+                                                    foreach (bool l11 in YP.unify(BodyWithReturn, BodyCode))
+                                                    {
+                                                        foreach (bool l12 in YP.unify(FunctionCode, new Functor(@"function", new object[] { ReturnType, Name, FunctionArgs, BodyWithReturn })))
+                                                        {
+                                                            yield return false;
+                                                        }
+                                                    }
+                                                cutIf18:
+                                                    { }
+                                                }
+                                            cutIf16:
+                                            cutIf14:
+                                                { }
+                                            }
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                cutIf2:
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> samePredicateRuleList(object arg1, object arg2, object arg3)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                Variable First = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Atom.NIL)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(First, Atom.NIL)))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, Atom.NIL))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object SamePredicateRuleList = arg2;
+                object RestRules = arg3;
+                Variable First = new Variable();
+                Variable Rest = new Variable();
+                Variable FirstRule = new Variable();
+                Variable x6 = new Variable();
+                Variable SecondRule = new Variable();
+                Variable x8 = new Variable();
+                Variable x9 = new Variable();
+                Variable FirstHead = new Variable();
+                Variable x11 = new Variable();
+                Variable SecondHead = new Variable();
+                Variable x13 = new Variable();
+                Variable Name = new Variable();
+                Variable Arity = new Variable();
+                Variable RestSamePredicates = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))
+                {
+                    foreach (bool l3 in YP.unify(new Functor2(@"f", FirstRule, x6), First))
+                    {
+                        foreach (bool l4 in YP.unify(new ListPair(new Functor2(@"f", SecondRule, x8), x9), Rest))
+                        {
+                            foreach (bool l5 in YP.unify(new Functor2(@":-", FirstHead, x11), FirstRule))
+                            {
+                                foreach (bool l6 in YP.unify(new Functor2(@":-", SecondHead, x13), SecondRule))
+                                {
+                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))
+                                    {
+                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))
+                                        {
+                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))
+                                            {
+                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))
+                                                {
+                                                    yield return true;
+                                                    yield break;
+                                                }
+                                            }
+                                            goto cutIf3;
+                                        }
+                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))
+                                        {
+                                            foreach (bool l9 in YP.unify(RestRules, Rest))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    cutIf3:
+                                        { }
+                                    }
+                                    goto cutIf2;
+                                }
+                                foreach (bool l6 in YP.unify(SecondHead, SecondRule))
+                                {
+                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))
+                                    {
+                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))
+                                        {
+                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))
+                                            {
+                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))
+                                                {
+                                                    yield return true;
+                                                    yield break;
+                                                }
+                                            }
+                                            goto cutIf4;
+                                        }
+                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))
+                                        {
+                                            foreach (bool l9 in YP.unify(RestRules, Rest))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    cutIf4:
+                                        { }
+                                    }
+                                }
+                            cutIf2:
+                                goto cutIf1;
+                            }
+                            foreach (bool l5 in YP.unify(FirstHead, FirstRule))
+                            {
+                                foreach (bool l6 in YP.unify(new Functor2(@":-", SecondHead, x13), SecondRule))
+                                {
+                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))
+                                    {
+                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))
+                                        {
+                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))
+                                            {
+                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))
+                                                {
+                                                    yield return true;
+                                                    yield break;
+                                                }
+                                            }
+                                            goto cutIf6;
+                                        }
+                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))
+                                        {
+                                            foreach (bool l9 in YP.unify(RestRules, Rest))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    cutIf6:
+                                        { }
+                                    }
+                                    goto cutIf5;
+                                }
+                                foreach (bool l6 in YP.unify(SecondHead, SecondRule))
+                                {
+                                    foreach (bool l7 in YP.functor(FirstHead, Name, Arity))
+                                    {
+                                        foreach (bool l8 in YP.functor(SecondHead, Name, Arity))
+                                        {
+                                            foreach (bool l9 in samePredicateRuleList(Rest, RestSamePredicates, RestRules))
+                                            {
+                                                foreach (bool l10 in YP.unify(SamePredicateRuleList, new ListPair(First, RestSamePredicates)))
+                                                {
+                                                    yield return true;
+                                                    yield break;
+                                                }
+                                            }
+                                            goto cutIf7;
+                                        }
+                                        foreach (bool l8 in YP.unify(SamePredicateRuleList, new ListPair(First, Atom.NIL)))
+                                        {
+                                            foreach (bool l9 in YP.unify(RestRules, Rest))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    cutIf7:
+                                        { }
+                                    }
+                                }
+                            cutIf5:
+                                { }
+                            }
+                        cutIf1:
+                            { }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> maplist_compileClause(object arg1, object arg2, object arg3)
+        {
+            {
+                object _MergedArgNames = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object MergedArgNames = arg2;
+                Variable ArgAssignments = new Variable();
+                Variable Calls = new Variable();
+                Variable Rest = new Variable();
+                Variable ClauseCode = new Variable();
+                Variable RestResults = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", ArgAssignments, Calls), Rest)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"blockScope", ClauseCode), RestResults)))
+                    {
+                        foreach (bool l4 in prependArgAssignments(ArgAssignments, Calls, MergedArgNames, ClauseCode))
+                        {
+                            foreach (bool l5 in maplist_compileClause(Rest, MergedArgNames, RestResults))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> prependArgAssignments(object arg1, object arg2, object arg3, object arg4)
+        {
+            {
+                object _MergedArgNames = arg3;
+                Variable In = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, In))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, In))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object In = arg2;
+                object MergedArgNames = arg3;
+                object ClauseCode = arg4;
+                Variable VariableName = new Variable();
+                Variable ArgName = new Variable();
+                Variable RestArgAssignments = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"f", VariableName, ArgName), RestArgAssignments)))
+                {
+                    foreach (bool l3 in member(VariableName, MergedArgNames))
+                    {
+                        foreach (bool l4 in prependArgAssignments(RestArgAssignments, In, MergedArgNames, ClauseCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in prependArgAssignments(RestArgAssignments, new ListPair(new Functor3(@"declare", Atom.a(@"object"), VariableName, new Functor1(@"var", ArgName)), In), MergedArgNames, ClauseCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> argAssignedAll(object arg1, object arg2, object VariableName)
+        {
+            {
+                object _ArgName = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.NIL))
+                {
+                    if (YP.nonvar(VariableName))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object ArgName = arg1;
+                Variable ArgAssignments = new Variable();
+                Variable _Calls = new Variable();
+                Variable RestClauseBag = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(new Functor2(@"f", ArgAssignments, _Calls), RestClauseBag)))
+                {
+                    foreach (bool l3 in member(new Functor2(@"f", VariableName, ArgName), ArgAssignments))
+                    {
+                        foreach (bool l4 in argAssignedAll(ArgName, RestClauseBag, VariableName))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> maplist_arg(object arg1, object arg2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable First = new Variable();
+                Variable Rest = new Variable();
+                Variable RestResults = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(new Functor1(@"arg", First), RestResults)))
+                    {
+                        foreach (bool l4 in maplist_arg(Rest, RestResults))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> getFunctionArgNames(object arg1, object arg2, object arg3)
+        {
+            {
+                object _StartArgNumber = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object StartArgNumber = arg2;
+                Variable x1 = new Variable();
+                Variable Rest = new Variable();
+                Variable ArgName = new Variable();
+                Variable RestFunctionArgs = new Variable();
+                Variable NumberCodes = new Variable();
+                Variable NumberAtom = new Variable();
+                Variable NextArgNumber = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, Rest)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(ArgName, RestFunctionArgs)))
+                    {
+                        foreach (bool l4 in YP.number_codes(StartArgNumber, NumberCodes))
+                        {
+                            foreach (bool l5 in YP.atom_codes(NumberAtom, NumberCodes))
+                            {
+                                foreach (bool l6 in YP.atom_concat(Atom.a(@"arg"), NumberAtom, ArgName))
+                                {
+                                    foreach (bool l7 in YP.unify(NextArgNumber, YP.add(StartArgNumber, 1)))
+                                    {
+                                        foreach (bool l8 in getFunctionArgNames(Rest, NextArgNumber, RestFunctionArgs))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileBodyWithHeadBindings(object Rule, object VariableNameSuggestions, object State, object ArgAssignments, object Calls)
+        {
+            {
+                Variable Head = new Variable();
+                Variable Body = new Variable();
+                Variable x8 = new Variable();
+                Variable HeadArgs = new Variable();
+                Variable CompiledHeadArgs = new Variable();
+                Variable BodyCode = new Variable();
+                Variable VariableNamesList = new Variable();
+                Variable ArgUnifications = new Variable();
+                foreach (bool l2 in YP.unify(new Functor2(@":-", Head, Body), Rule))
+                {
+                    CompilerState.newVariableNames(State, Rule, VariableNameSuggestions);
+                    foreach (bool l3 in YP.univ(Head, new ListPair(x8, HeadArgs)))
+                    {
+                        foreach (bool l4 in maplist_compileTerm(HeadArgs, State, CompiledHeadArgs))
+                        {
+                            foreach (bool l5 in compileRuleBody(Body, State, BodyCode))
+                            {
+                                foreach (bool l6 in CompilerState.variableNamesList(State, VariableNamesList))
+                                {
+                                    foreach (bool l7 in compileArgUnifications(HeadArgs, CompiledHeadArgs, 1, HeadArgs, BodyCode, ArgUnifications))
+                                    {
+                                        foreach (bool l8 in compileDeclarations(VariableNamesList, HeadArgs, Atom.NIL, ArgAssignments, ArgUnifications, Calls))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in compileBodyWithHeadBindings(new Functor2(@":-", Rule, Atom.a(@"true")), VariableNameSuggestions, State, ArgAssignments, Calls))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileArgUnifications(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)
+        {
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                object x3 = arg4;
+                Variable BodyCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg5, BodyCode))
+                    {
+                        foreach (bool l4 in YP.unify(arg6, BodyCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object Index = arg3;
+                object AllHeadArgs = arg4;
+                object BodyCode = arg5;
+                object ArgUnifications = arg6;
+                Variable HeadArg = new Variable();
+                Variable RestHeadArgs = new Variable();
+                Variable x3 = new Variable();
+                Variable RestCompiledHeadArgs = new Variable();
+                Variable _ArgIndex1 = new Variable();
+                Variable NextIndex = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(HeadArg, RestHeadArgs)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(x3, RestCompiledHeadArgs)))
+                    {
+                        foreach (bool l4 in getVariableArgIndex1(HeadArg, AllHeadArgs, _ArgIndex1))
+                        {
+                            foreach (bool l5 in YP.unify(NextIndex, YP.add(Index, 1)))
+                            {
+                                foreach (bool l6 in compileArgUnifications(RestHeadArgs, RestCompiledHeadArgs, NextIndex, AllHeadArgs, BodyCode, ArgUnifications))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Index = arg3;
+                object AllHeadArgs = arg4;
+                object BodyCode = arg5;
+                Variable _HeadArg = new Variable();
+                Variable RestHeadArgs = new Variable();
+                Variable CompiledHeadArg = new Variable();
+                Variable RestCompiledHeadArgs = new Variable();
+                Variable ArgName = new Variable();
+                Variable RestArgUnifications = new Variable();
+                Variable NumberCodes = new Variable();
+                Variable NumberAtom = new Variable();
+                Variable NextIndex = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(_HeadArg, RestHeadArgs)))
+                {
+                    foreach (bool l3 in YP.unify(arg2, new ListPair(CompiledHeadArg, RestCompiledHeadArgs)))
+                    {
+                        foreach (bool l4 in YP.unify(arg6, new ListPair(new Functor2(@"foreach", new Functor2(@"call", Atom.a(@"YP.unify"), new ListPair(new Functor1(@"var", ArgName), new ListPair(CompiledHeadArg, Atom.NIL))), RestArgUnifications), Atom.NIL)))
+                        {
+                            foreach (bool l5 in YP.number_codes(Index, NumberCodes))
+                            {
+                                foreach (bool l6 in YP.atom_codes(NumberAtom, NumberCodes))
+                                {
+                                    foreach (bool l7 in YP.atom_concat(Atom.a(@"arg"), NumberAtom, ArgName))
+                                    {
+                                        foreach (bool l8 in YP.unify(NextIndex, YP.add(Index, 1)))
+                                        {
+                                            foreach (bool l9 in compileArgUnifications(RestHeadArgs, RestCompiledHeadArgs, NextIndex, AllHeadArgs, BodyCode, RestArgUnifications))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileDeclarations(object arg1, object arg2, object arg3, object arg4, object arg5, object arg6)
+        {
+            {
+                object _HeadArgs = arg2;
+                Variable ArgAssignmentsIn = new Variable();
+                Variable DeclarationsIn = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg3, ArgAssignmentsIn))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, ArgAssignmentsIn))
+                        {
+                            foreach (bool l5 in YP.unify(arg5, DeclarationsIn))
+                            {
+                                foreach (bool l6 in YP.unify(arg6, DeclarationsIn))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object HeadArgs = arg2;
+                object ArgAssignmentsIn = arg3;
+                object ArgAssignmentsOut = arg4;
+                object DeclarationsIn = arg5;
+                object DeclarationsOut = arg6;
+                Variable VariableName = new Variable();
+                Variable Var = new Variable();
+                Variable RestVariableNames = new Variable();
+                Variable ArgIndex1 = new Variable();
+                Variable NumberCodes = new Variable();
+                Variable NumberAtom = new Variable();
+                Variable ArgName = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", VariableName, Var), RestVariableNames)))
+                {
+                    foreach (bool l3 in getVariableArgIndex1(Var, HeadArgs, ArgIndex1))
+                    {
+                        foreach (bool l4 in YP.number_codes(ArgIndex1, NumberCodes))
+                        {
+                            foreach (bool l5 in YP.atom_codes(NumberAtom, NumberCodes))
+                            {
+                                foreach (bool l6 in YP.atom_concat(Atom.a(@"arg"), NumberAtom, ArgName))
+                                {
+                                    foreach (bool l7 in compileDeclarations(RestVariableNames, HeadArgs, new ListPair(new Functor2(@"f", VariableName, ArgName), ArgAssignmentsIn), ArgAssignmentsOut, DeclarationsIn, DeclarationsOut))
+                                    {
+                                        yield return true;
+                                        yield break;
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object HeadArgs = arg2;
+                object ArgAssignmentsIn = arg3;
+                object ArgAssignmentsOut = arg4;
+                object DeclarationsIn = arg5;
+                Variable VariableName = new Variable();
+                Variable _Var = new Variable();
+                Variable RestVariableNames = new Variable();
+                Variable DeclarationsOut = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"=", VariableName, _Var), RestVariableNames)))
+                {
+                    foreach (bool l3 in YP.unify(arg6, new ListPair(new Functor3(@"declare", Atom.a(@"Variable"), VariableName, new Functor2(@"new", Atom.a(@"Variable"), Atom.NIL)), DeclarationsOut)))
+                    {
+                        foreach (bool l4 in compileDeclarations(RestVariableNames, HeadArgs, ArgAssignmentsIn, ArgAssignmentsOut, DeclarationsIn, DeclarationsOut))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> getVariableArgIndex1(object Var, object arg2, object arg3)
+        {
+            {
+                Variable FirstHeadArgs = new Variable();
+                Variable RestHeadArgs = new Variable();
+                Variable x4 = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(FirstHeadArgs, RestHeadArgs)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        if (sameVariable(Var, FirstHeadArgs))
+                        {
+                            foreach (bool l5 in getVariableArgIndex1(Var, RestHeadArgs, x4))
+                            {
+                                goto cutIf1;
+                            }
+                            yield return false;
+                        cutIf1:
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object Index = arg3;
+                Variable x2 = new Variable();
+                Variable RestHeadArgs = new Variable();
+                Variable RestIndex = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(x2, RestHeadArgs)))
+                {
+                    foreach (bool l3 in getVariableArgIndex1(Var, RestHeadArgs, RestIndex))
+                    {
+                        foreach (bool l4 in YP.unify(Index, YP.add(1, RestIndex)))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileRuleBody(object arg1, object arg2, object arg3)
+        {
+            {
+                object A = arg1;
+                object State = arg2;
+                object PseudoCode = arg3;
+                if (YP.var(A))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor1(@"call", A), Atom.a(@"true")), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"!")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"return"), Atom.NIL)))
+                    {
+                        if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"!")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"returntrue"), Atom.NIL)))
+                    {
+                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object _State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"!")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"yieldtrue"), new ListPair(Atom.a(@"yieldbreak"), Atom.NIL))))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object _State = arg2;
+                Variable Name = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"$CUTIF", Name)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor1(@"breakBlock", Name), Atom.NIL)))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"true")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"return"), Atom.NIL)))
+                    {
+                        if (CompilerState.determinismEquals(State, Atom.a(@"detNoneOut")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"true")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"returntrue"), Atom.NIL)))
+                    {
+                        if (CompilerState.determinismEquals(State, Atom.a(@"semidetNoneOut")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object _State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"true")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(Atom.a(@"yieldfalse"), Atom.NIL)))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
+                {
+                    if (YP.var(A))
+                    {
+                        foreach (bool l4 in compileRuleBody(new Functor2(@",", new Functor1(@"call", A), B), State, PseudoCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable T = new Variable();
+                Variable B = new Variable();
+                Variable C = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, T), B), C)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@";", new Functor2(@"->", A, new Functor2(@",", T, C)), new Functor2(@",", B, C)), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable C = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@";", A, B), C)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@";", new Functor2(@",", A, C), new Functor2(@",", B, C)), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable ACode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"\+", A), B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"if", new Functor1(@"not", ACode), BCode), Atom.NIL)))
+                    {
+                        if (CompilerState.isSemidetNoneOut(State, A))
+                        {
+                            foreach (bool l5 in compileFunctorCall(A, State, ACode))
+                            {
+                                foreach (bool l6 in compileRuleBody(B, State, BCode))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"\+", A), B)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, Atom.a(@"fail")), Atom.a(@"true")), B), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"once", A), B)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, Atom.a(@"true")), Atom.a(@"fail")), B), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable T = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@"->", A, T), B)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor2(@";", new Functor2(@"->", A, T), Atom.a(@"fail")), B), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable C = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@"\=", A, B), C)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@",", new Functor1(@"\+", new Functor2(@"=", A, B)), C), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable ACode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", Atom.a(@"!"), A)))
+                {
+                    foreach (bool l3 in compileRuleBody(A, State, ACode))
+                    {
+                        foreach (bool l4 in append(ACode, new ListPair(Atom.a(@"yieldbreak"), Atom.NIL), PseudoCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable Name = new Variable();
+                Variable A = new Variable();
+                Variable ACode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"$CUTIF", Name), A)))
+                {
+                    foreach (bool l3 in compileRuleBody(A, State, ACode))
+                    {
+                        foreach (bool l4 in append(ACode, new ListPair(new Functor1(@"breakBlock", Name), Atom.NIL), PseudoCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object _State = arg2;
+                Variable x1 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", Atom.a(@"fail"), x1)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", Atom.a(@"true"), A)))
+                {
+                    foreach (bool l3 in compileRuleBody(A, State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable Term = new Variable();
+                Variable B = new Variable();
+                Variable ACode = new Variable();
+                Variable TermCode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@"is", A, Term), B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"foreach", new Functor2(@"call", Atom.a(@"YP.unify"), new ListPair(ACode, new ListPair(TermCode, Atom.NIL))), BCode), Atom.NIL)))
+                    {
+                        foreach (bool l4 in compileTerm(A, State, ACode))
+                        {
+                            foreach (bool l5 in compileExpression(Term, State, TermCode))
+                            {
+                                foreach (bool l6 in compileRuleBody(B, State, BCode))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable ACode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(ACode, BCode)))
+                    {
+                        if (CompilerState.isDetNoneOut(State, A))
+                        {
+                            foreach (bool l5 in compileFunctorCall(A, State, ACode))
+                            {
+                                foreach (bool l6 in compileRuleBody(B, State, BCode))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable ACode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"if", ACode, BCode), Atom.NIL)))
+                    {
+                        if (CompilerState.isSemidetNoneOut(State, A))
+                        {
+                            foreach (bool l5 in compileFunctorCall(A, State, ACode))
+                            {
+                                foreach (bool l6 in compileRuleBody(B, State, BCode))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable ACode = new Variable();
+                Variable B = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"$DET_NONE_OUT", ACode), B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(ACode, BCode)))
+                    {
+                        foreach (bool l4 in compileRuleBody(B, State, BCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable FunctionName = new Variable();
+                Variable X1Code = new Variable();
+                Variable X2Code = new Variable();
+                Variable BCode = new Variable();
+                Variable Name = new Variable();
+                Variable X1 = new Variable();
+                Variable X2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"if", new Functor2(@"call", FunctionName, new ListPair(X1Code, new ListPair(X2Code, Atom.NIL))), BCode), Atom.NIL)))
+                    {
+                        foreach (bool l4 in YP.univ(A, new ListPair(Name, new ListPair(X1, new ListPair(X2, Atom.NIL)))))
+                        {
+                            foreach (bool l5 in binaryExpressionConditional(Name, FunctionName))
+                            {
+                                foreach (bool l6 in compileExpression(X1, State, X1Code))
+                                {
+                                    foreach (bool l7 in compileExpression(X2, State, X2Code))
+                                    {
+                                        foreach (bool l8 in compileRuleBody(B, State, BCode))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable C = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor2(@",", A, B), C)))
+                {
+                    foreach (bool l3 in compileRuleBody(new Functor2(@",", A, new Functor2(@",", B, C)), State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable Template = new Variable();
+                Variable Goal = new Variable();
+                Variable Bag = new Variable();
+                Variable B = new Variable();
+                Variable TemplateCode = new Variable();
+                Variable FindallAnswers = new Variable();
+                Variable GoalAndAddCode = new Variable();
+                Variable BagCode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor3(@"findall", Template, Goal, Bag), B)))
+                {
+                    foreach (bool l3 in compileTerm(Template, State, TemplateCode))
+                    {
+                        foreach (bool l4 in CompilerState.gensym(State, Atom.a(@"findallAnswers"), FindallAnswers))
+                        {
+                            foreach (bool l5 in compileRuleBody(new Functor2(@",", Goal, new Functor2(@",", new Functor1(@"$DET_NONE_OUT", new Functor3(@"callMember", new Functor1(@"var", FindallAnswers), Atom.a(@"add"), Atom.NIL)), Atom.a(@"fail"))), State, GoalAndAddCode))
+                            {
+                                foreach (bool l6 in compileTerm(Bag, State, BagCode))
+                                {
+                                    foreach (bool l7 in compileRuleBody(B, State, BCode))
+                                    {
+                                        foreach (bool l8 in append(new ListPair(new Functor3(@"declare", Atom.a(@"FindallAnswers"), FindallAnswers, new Functor2(@"new", Atom.a(@"FindallAnswers"), new ListPair(TemplateCode, Atom.NIL))), GoalAndAddCode), new ListPair(new Functor2(@"foreach", new Functor3(@"callMember", new Functor1(@"var", FindallAnswers), Atom.a(@"result"), new ListPair(BagCode, Atom.NIL)), BCode), Atom.NIL), PseudoCode))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable Template = new Variable();
+                Variable Goal = new Variable();
+                Variable Bag = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor3(@"bagof", Template, Goal, Bag), B)))
+                {
+                    foreach (bool l3 in compileBagof(Atom.a(@"result"), Template, Goal, Bag, B, State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable Template = new Variable();
+                Variable Goal = new Variable();
+                Variable Bag = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor3(@"setof", Template, Goal, Bag), B)))
+                {
+                    foreach (bool l3 in compileBagof(Atom.a(@"resultSet"), Template, Goal, Bag, B, State, PseudoCode))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable ATermCode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", new Functor1(@"call", A), B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"foreach", new Functor2(@"call", Atom.a(@"YP.getIterator"), new ListPair(ATermCode, new ListPair(new Functor2(@"call", Atom.a(@"getDeclaringClass"), Atom.NIL), Atom.NIL))), BCode), Atom.NIL)))
+                    {
+                        foreach (bool l4 in compileTerm(A, State, ATermCode))
+                        {
+                            foreach (bool l5 in compileRuleBody(B, State, BCode))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable ACode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@",", A, B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"foreach", ACode, BCode), Atom.NIL)))
+                    {
+                        foreach (bool l4 in compileFunctorCall(A, State, ACode))
+                        {
+                            foreach (bool l5 in compileRuleBody(B, State, BCode))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@";", A, B)))
+                {
+                    if (YP.var(A))
+                    {
+                        foreach (bool l4 in compileRuleBody(new Functor2(@";", new Functor1(@"call", A), B), State, PseudoCode))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable A = new Variable();
+                Variable T = new Variable();
+                Variable B = new Variable();
+                Variable CutIfLabel = new Variable();
+                Variable Code = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@";", new Functor2(@"->", A, T), B)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(new Functor2(@"breakableBlock", CutIfLabel, Code), Atom.NIL)))
+                    {
+                        foreach (bool l4 in CompilerState.gensym(State, Atom.a(@"cutIf"), CutIfLabel))
+                        {
+                            foreach (bool l5 in compileRuleBody(new Functor2(@";", new Functor2(@",", A, new Functor2(@",", new Functor1(@"$CUTIF", CutIfLabel), T)), B), State, Code))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                object PseudoCode = arg3;
+                Variable A = new Variable();
+                Variable B = new Variable();
+                Variable ACode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@";", A, B)))
+                {
+                    foreach (bool l3 in compileRuleBody(A, State, ACode))
+                    {
+                        foreach (bool l4 in compileRuleBody(B, State, BCode))
+                        {
+                            foreach (bool l5 in append(ACode, BCode, PseudoCode))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object A = arg1;
+                object State = arg2;
+                object PseudoCode = arg3;
+                foreach (bool l2 in compileRuleBody(new Functor2(@",", A, Atom.a(@"true")), State, PseudoCode))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileBagof(object ResultMethod, object Template, object Goal, object Bag, object B, object State, object PseudoCode)
+        {
+            {
+                Variable TemplateCode = new Variable();
+                Variable GoalTermCode = new Variable();
+                Variable UnqualifiedGoal = new Variable();
+                Variable BagofAnswers = new Variable();
+                Variable GoalAndAddCode = new Variable();
+                Variable BagCode = new Variable();
+                Variable BCode = new Variable();
+                foreach (bool l2 in compileTerm(Template, State, TemplateCode))
+                {
+                    foreach (bool l3 in compileTerm(Goal, State, GoalTermCode))
+                    {
+                        foreach (bool l4 in unqualifiedGoal(Goal, UnqualifiedGoal))
+                        {
+                            foreach (bool l5 in CompilerState.gensym(State, Atom.a(@"bagofAnswers"), BagofAnswers))
+                            {
+                                foreach (bool l6 in compileRuleBody(new Functor2(@",", UnqualifiedGoal, new Functor2(@",", new Functor1(@"$DET_NONE_OUT", new Functor3(@"callMember", new Functor1(@"var", BagofAnswers), Atom.a(@"add"), Atom.NIL)), Atom.a(@"fail"))), State, GoalAndAddCode))
+                                {
+                                    foreach (bool l7 in compileTerm(Bag, State, BagCode))
+                                    {
+                                        foreach (bool l8 in compileRuleBody(B, State, BCode))
+                                        {
+                                            foreach (bool l9 in append(new ListPair(new Functor3(@"declare", Atom.a(@"BagofAnswers"), BagofAnswers, new Functor2(@"new", Atom.a(@"BagofAnswers"), new ListPair(TemplateCode, new ListPair(GoalTermCode, Atom.NIL)))), GoalAndAddCode), new ListPair(new Functor2(@"foreach", new Functor3(@"callMember", new Functor1(@"var", BagofAnswers), ResultMethod, new ListPair(BagCode, Atom.NIL)), BCode), Atom.NIL), PseudoCode))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    }
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> unqualifiedGoal(object arg1, object arg2)
+        {
+            {
+                object Goal = arg1;
+                foreach (bool l2 in YP.unify(arg2, new Functor1(@"call", Goal)))
+                {
+                    if (YP.var(Goal))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object UnqualifiedGoal = arg2;
+                Variable x1 = new Variable();
+                Variable Goal = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"^", x1, Goal)))
+                {
+                    foreach (bool l3 in unqualifiedGoal(Goal, UnqualifiedGoal))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                Variable UnqualifiedGoal = new Variable();
+                foreach (bool l2 in YP.unify(arg1, UnqualifiedGoal))
+                {
+                    foreach (bool l3 in YP.unify(arg2, UnqualifiedGoal))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> binaryExpressionConditional(object arg1, object arg2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"=:=")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.equal")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"=\=")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.notEqual")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@">")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.greaterThan")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"<")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.lessThan")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@">=")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.greaterThanOrEqual")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"=<")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.lessThanOrEqual")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileFunctorCall(object Functor_1, object State, object arg3)
+        {
+            {
+                Variable FunctionName = new Variable();
+                Variable CompiledArgs = new Variable();
+                Variable FunctorName = new Variable();
+                Variable FunctorArgs = new Variable();
+                Variable x7 = new Variable();
+                Variable Arity = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new Functor2(@"call", FunctionName, CompiledArgs)))
+                {
+                    foreach (bool l3 in YP.univ(Functor_1, new ListPair(FunctorName, FunctorArgs)))
+                    {
+                        foreach (bool l4 in YP.functor(Functor_1, x7, Arity))
+                        {
+                            foreach (bool l5 in functorCallFunctionName(State, FunctorName, Arity, FunctionName))
+                            {
+                                foreach (bool l6 in maplist_compileTerm(FunctorArgs, State, CompiledArgs))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> functorCallFunctionName(object arg1, object arg2, object arg3, object arg4)
+        {
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"=")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.unify")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"=..")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.univ")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"var")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.var")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"nonvar")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.nonvar")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"arg")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 3))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.arg")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"functor")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 3))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.functor")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"repeat")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 0))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.repeat")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"get_code")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.get_code")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"current_op")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 3))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.current_op")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom_length")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom_length")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom_concat")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 3))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom_concat")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"sub_atom")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 5))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.sub_atom")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom_codes")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom_codes")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"number_codes")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.number_codes")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"copy_term")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.copy_term")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"sort")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.sort")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"script_event")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.script_event")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"nl")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 0))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.nl")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"write")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.write")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"put_code")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.put_code")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"atom")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.atom")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"number")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.number")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"==")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termEqual")))
+                {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"\==")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termNotEqual")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@<")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termLessThan")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@=<")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termLessThanOrEqual")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@>")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termGreaterThan")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"@>=")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 2))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.termGreaterThanOrEqual")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object x1 = arg1;
+                foreach (bool l2 in YP.unify(arg2, Atom.a(@"throw")))
+                {
+                    foreach (bool l3 in YP.unify(arg3, 1))
+                    {
+                        foreach (bool l4 in YP.unify(arg4, Atom.a(@"YP.throwException")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object State = arg1;
+                object Arity = arg3;
+                Variable Name = new Variable();
+                foreach (bool l2 in YP.unify(arg2, Name))
+                {
+                    foreach (bool l3 in YP.unify(arg4, Name))
+                    {
+                        if (CompilerState.nameArityHasModule(State, Name, Arity, Atom.a(@"")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object _State = arg1;
+                object _Arity = arg3;
+                Variable Name = new Variable();
+                foreach (bool l2 in YP.unify(arg2, Name))
+                {
+                    foreach (bool l3 in YP.unify(arg4, Name))
+                    {
+                        foreach (bool l4 in Atom.module(Name, Atom.a(@"")))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object _State = arg1;
+                object Name = arg2;
+                object Arity = arg3;
+                object x4 = arg4;
+                foreach (bool l2 in Atom.module(Name, Atom.NIL))
+                {
+                    YP.throwException(new Functor2(@"error", new Functor2(@"type_error", Atom.a(@"callable"), new Functor2(@"/", Name, Arity)), Atom.a(@"Calls to dynamic predicates not supported")));
+                    yield return true;
+                    yield break;
+                }
+            }
+            {
+                object _State = arg1;
+                object Name = arg2;
+                object Arity = arg3;
+                object x4 = arg4;
+                Variable Module = new Variable();
+                Variable Message = new Variable();
+                foreach (bool l2 in Atom.module(Name, Module))
+                {
+                    foreach (bool l3 in Atom.module(Name, Atom.NIL))
+                {
+                        foreach (bool l4 in YP.atom_concat(Atom.a(@"Not supporting calls to external module: "), Module, Message))
+                    {
+                            YP.throwException(new Functor2(@"error", new Functor2(@"type_error", Atom.a(@"callable"), new Functor2(@"/", Name, Arity)), Message));
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+        }
+
+        public static IEnumerable<bool> compileTerm(object arg1, object arg2, object arg3)
+        {
+            {
+                object Term = arg1;
+                object State = arg2;
+                Variable VariableName = new Variable();
+                foreach (bool l2 in YP.unify(arg3, new Functor1(@"var", VariableName)))
+                {
+                    if (YP.var(Term))
+                    {
+                        foreach (bool l4 in CompilerState.getVariableName(State, Term, VariableName))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                }
+            }
+            {
+                object _State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new Functor1(@"var", Atom.a(@"Atom.NIL"))))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Term = arg1;
+                object State = arg2;
+                object Code = arg3;
+                Variable ModuleCode = new Variable();
+                if (YP.atom(Term))
+                {
+                    foreach (bool l3 in compileAtomModule(Term, 0, State, ModuleCode))
+                    {
+                        foreach (bool l4 in YP.unify(Code, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Term), new ListPair(ModuleCode, Atom.NIL)))))
+                {
+                            yield return true;
+                            yield break;
+                        }
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in YP.unify(Code, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Term), Atom.NIL))))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                cutIf1:
+                    { }
+                }
+            }
+            {
+                object State = arg2;
+                Variable First = new Variable();
+                Variable Rest = new Variable();
+                Variable Arg1 = new Variable();
+                Variable Arg2 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new Functor2(@"new", Atom.a(@"ListPair"), new ListPair(Arg1, new ListPair(Arg2, Atom.NIL)))))
+                    {
+                        foreach (bool l4 in compileTerm(First, State, Arg1))
+                        {
+                            foreach (bool l5 in compileTerm(Rest, State, Arg2))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Term = arg1;
+                object State = arg2;
+                object Result = arg3;
+                Variable Name = new Variable();
+                Variable TermArgs = new Variable();
+                Variable x6 = new Variable();
+                Variable Arity = new Variable();
+                Variable ModuleCode = new Variable();
+                Variable NameCode = new Variable();
+                Variable X1 = new Variable();
+                Variable Arg1 = new Variable();
+                Variable X2 = new Variable();
+                Variable Arg2 = new Variable();
+                Variable X3 = new Variable();
+                Variable Arg3 = new Variable();
+                Variable Args = new Variable();
+                foreach (bool l2 in YP.univ(Term, new ListPair(Name, TermArgs)))
+                {
+                    if (YP.termEqual(TermArgs, Atom.NIL))
+                    {
+                        foreach (bool l4 in YP.unify(Result, new Functor1(@"object", Name)))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                        goto cutIf2;
+                    }
+                    foreach (bool l3 in YP.functor(Term, x6, Arity))
+                    {
+                        foreach (bool l4 in compileAtomModule(Name, Arity, State, ModuleCode))
+                        {
+                            foreach (bool l5 in YP.unify(NameCode, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Name), new ListPair(ModuleCode, Atom.NIL)))))
+                            {
+                                foreach (bool l6 in YP.unify(TermArgs, new ListPair(X1, Atom.NIL)))
+                                {
+                                    foreach (bool l7 in compileTerm(X1, State, Arg1))
+                                    {
+                                        foreach (bool l8 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor1"), new ListPair(NameCode, new ListPair(Arg1, Atom.NIL)))))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                    goto cutIf4;
+                    }
+                                foreach (bool l6 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, Atom.NIL))))
+                    {
+                                    foreach (bool l7 in compileTerm(X1, State, Arg1))
+                                    {
+                                        foreach (bool l8 in compileTerm(X2, State, Arg2))
+                        {
+                                            foreach (bool l9 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor2"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, Atom.NIL))))))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                                    goto cutIf5;
+                                }
+                                foreach (bool l6 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, new ListPair(X3, Atom.NIL)))))
+                                {
+                                    foreach (bool l7 in compileTerm(X1, State, Arg1))
+                    {
+                                        foreach (bool l8 in compileTerm(X2, State, Arg2))
+                        {
+                                            foreach (bool l9 in compileTerm(X3, State, Arg3))
+                            {
+                                                foreach (bool l10 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor3"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, new ListPair(Arg3, Atom.NIL)))))))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            }
+                        }
+                                    }
+                                }
+                                foreach (bool l6 in maplist_compileTerm(TermArgs, State, Args))
+                                {
+                                    foreach (bool l7 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor"), new ListPair(NameCode, new ListPair(new Functor1(@"objectArray", Args), Atom.NIL)))))
+                                    {
+                                        yield return true;
+                                        yield break;
+                                    }
+                                }
+                            cutIf5:
+                            cutIf4:
+                                { }
+                            }
+                        goto cutIf3;
+                    }
+                        foreach (bool l4 in YP.unify(NameCode, new Functor1(@"object", Name)))
+                        {
+                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, Atom.NIL)))
+                    {
+                                foreach (bool l6 in compileTerm(X1, State, Arg1))
+                                {
+                                    foreach (bool l7 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor1"), new ListPair(NameCode, new ListPair(Arg1, Atom.NIL)))))
+                                    {
+                                        yield return true;
+                                        yield break;
+                                    }
+                                }
+                                goto cutIf6;
+                            }
+                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, Atom.NIL))))
+                            {
+                                foreach (bool l6 in compileTerm(X1, State, Arg1))
+                                {
+                                    foreach (bool l7 in compileTerm(X2, State, Arg2))
+                                    {
+                                        foreach (bool l8 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor2"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, Atom.NIL))))))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                }
+                                goto cutIf7;
+                            }
+                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, new ListPair(X3, Atom.NIL)))))
+                            {
+                                foreach (bool l6 in compileTerm(X1, State, Arg1))
+                        {
+                                    foreach (bool l7 in compileTerm(X2, State, Arg2))
+                            {
+                                        foreach (bool l8 in compileTerm(X3, State, Arg3))
+                                {
+                                            foreach (bool l9 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor3"), new ListPair(NameCode, new ListPair(Arg1, new ListPair(Arg2, new ListPair(Arg3, Atom.NIL)))))))
+                                    {
+                                        yield return true;
+                                        yield break;
+                                    }
+                                }
+                            }
+                        }
+                    }
+                            foreach (bool l5 in maplist_compileTerm(TermArgs, State, Args))
+                    {
+                                foreach (bool l6 in YP.unify(Result, new Functor2(@"new", Atom.a(@"Functor"), new ListPair(NameCode, new ListPair(new Functor1(@"objectArray", Args), Atom.NIL)))))
+                        {
+                            yield return true;
+                            yield break;
+                        }
+                    }
+                        cutIf7:
+                        cutIf6:
+                            { }
+                        }
+                cutIf3:
+                        { }
+                    }
+                cutIf2:
+                    { }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileAtomModule(object Name, object Arity, object State, object ModuleCode)
+        {
+            {
+                if (CompilerState.nameArityHasModule(State, Name, Arity, Atom.a(@"")))
+                {
+                    foreach (bool l3 in YP.unify(ModuleCode, new Functor2(@"call", Atom.a(@"Atom.a"), new ListPair(new Functor1(@"object", Atom.a(@"")), Atom.NIL))))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> maplist_compileTerm(object arg1, object arg2, object arg3)
+        {
+            {
+                object _State = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg3, Atom.NIL))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object State = arg2;
+                Variable First = new Variable();
+                Variable Rest = new Variable();
+                Variable FirstResult = new Variable();
+                Variable RestResults = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(First, Rest)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(FirstResult, RestResults)))
+                    {
+                        foreach (bool l4 in compileTerm(First, State, FirstResult))
+                        {
+                            foreach (bool l5 in maplist_compileTerm(Rest, State, RestResults))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> compileExpression(object Term, object State, object Result)
+        {
+            {
+                Variable Name = new Variable();
+                Variable TermArgs = new Variable();
+                Variable X1 = new Variable();
+                Variable FunctionName = new Variable();
+                Variable Arg1 = new Variable();
+                Variable x9 = new Variable();
+                Variable X2 = new Variable();
+                Variable Arg2 = new Variable();
+                if (YP.nonvar(Term))
+                {
+                    foreach (bool l3 in YP.univ(Term, new ListPair(Name, TermArgs)))
+                    {
+                        if (YP.atom(Name))
+                        {
+                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, Atom.NIL)))
+                            {
+                                foreach (bool l6 in unaryFunction(Name, FunctionName))
+                                {
+                                    foreach (bool l7 in compileExpression(X1, State, Arg1))
+                                    {
+                                        foreach (bool l8 in YP.unify(Result, new Functor2(@"call", FunctionName, new ListPair(Arg1, Atom.NIL))))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                    }
+                                    goto cutIf1;
+                                }
+                            }
+                            foreach (bool l5 in YP.unify(Term, new ListPair(x9, Atom.NIL)))
+                            {
+                                foreach (bool l6 in compileTerm(Term, State, Result))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                                goto cutIf2;
+                            }
+                            foreach (bool l5 in YP.unify(TermArgs, new ListPair(X1, new ListPair(X2, Atom.NIL))))
+                            {
+                                foreach (bool l6 in binaryFunction(Name, FunctionName))
+                                {
+                                    foreach (bool l7 in compileExpression(X1, State, Arg1))
+                                    {
+                                        foreach (bool l8 in compileExpression(X2, State, Arg2))
+                                        {
+                                            foreach (bool l9 in YP.unify(Result, new Functor2(@"call", FunctionName, new ListPair(Arg1, new ListPair(Arg2, Atom.NIL)))))
+                                            {
+                                                yield return true;
+                                                yield break;
+                                            }
+                                        }
+                                    }
+                                    goto cutIf3;
+                                }
+                            }
+                            YP.throwException(new Functor2(@"error", new Functor2(@"type_error", Atom.a(@"evaluable"), Name), Atom.a(@"Not an expression function")));
+                            yield return false;
+                        cutIf3:
+                        cutIf2:
+                        cutIf1:
+                            { }
+                        }
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in compileTerm(Term, State, Result))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+        }
+
+        public static IEnumerable<bool> unaryFunction(object arg1, object arg2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"-")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.negate")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"abs")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.abs")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"sign")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.sign")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"floor")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.floor")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"truncate")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.truncate")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"round")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.round")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"floor")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.ceiling")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"sin")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.sin")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"cos")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.cos")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"atan")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.atan")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"exp")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.exp")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"log")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.log")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"sqrt")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.sqrt")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"\")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseComplement")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> binaryFunction(object arg1, object arg2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"+")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.add")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"-")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.subtract")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"*")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.multiply")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"/")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.divide")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"//")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.intDivide")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"mod")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.mod")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"**")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.pow")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@">>")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseShiftRight")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"<<")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseShiftLeft")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"/\")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseAnd")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"\/")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.bitwiseOr")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"min")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.min")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"max")))
+                {
+                    foreach (bool l3 in YP.unify(arg2, Atom.a(@"YP.max")))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+        }
+
+        public static void convertFunctionCSharp(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"getDeclaringClass")))
+                {
+                    YP.write(Atom.a(@"class YPInnerClass {}"));
+                    YP.nl();
+                    YP.write(Atom.a(@"static System.Type getDeclaringClass() { return typeof(YPInnerClass).DeclaringType; }"));
+                    YP.nl();
+                    YP.nl();
+                    return;
+                }
+            }
+            {
+                Variable ReturnType = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable Body = new Variable();
+                Variable Level = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor(@"function", new object[] { ReturnType, Name, ArgList, Body })))
+                {
+                    YP.write(Atom.a(@"public static "));
+                    YP.write(ReturnType);
+                    YP.write(Atom.a(@" "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@") {"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(Level, 1))
+                    {
+                        convertStatementListCSharp(Body, Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        YP.nl();
+                        return;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> convertStatementListCSharp(object arg1, object x1, object x2)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+        }
+
+        public static void convertStatementListCSharp(object arg1, object Level)
+        {
+            {
+                Variable Name = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NewStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", Name, Body), RestStatements)))
+                {
+                    foreach (bool l3 in append(Body, new ListPair(new Functor1(@"label", Name), RestStatements), NewStatements))
+                    {
+                        convertStatementListCSharp(NewStatements, Level);
+                        return;
+                    }
+                }
+            }
+            {
+                Variable Type = new Variable();
+                Variable Name = new Variable();
+                Variable Expression = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"declare", Type, Name, Expression), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Type);
+                    YP.write(Atom.a(@" "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = "));
+                    convertExpressionCSharp(Expression);
+                    YP.write(Atom.a(@";"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable Expression = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"assign", Name, Expression), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = "));
+                    convertExpressionCSharp(Expression);
+                    YP.write(Atom.a(@";"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldtrue"), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"yield return true;"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldfalse"), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"yield return false;"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldbreak"), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"yield break;"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"return"), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"return;"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returntrue"), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"return true;"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returnfalse"), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"return false;"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"label", Name), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@":"));
+                    YP.nl();
+                    if (YP.termEqual(RestStatements, Atom.NIL))
+                    {
+                        convertIndentationCSharp(Level);
+                        YP.write(Atom.a(@"{}"));
+                        YP.nl();
+                        convertStatementListCSharp(RestStatements, Level);
+                        return;
+                        goto cutIf1;
+                    }
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"breakBlock", Name), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"goto "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@";"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"call", Name, ArgList), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@");"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable Obj = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Obj);
+                    YP.write(Atom.a(@"."));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@");"));
+                    YP.nl();
+                    convertStatementListCSharp(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"{"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListCSharp(Body, NextLevel);
+                        convertIndentationCSharp(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListCSharp(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+            {
+                Variable Expression = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", Expression, Body), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"if ("));
+                    convertExpressionCSharp(Expression);
+                    YP.write(Atom.a(@") {"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListCSharp(Body, NextLevel);
+                        convertIndentationCSharp(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListCSharp(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+            {
+                Variable Expression = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", Expression, Body), RestStatements)))
+                {
+                    convertIndentationCSharp(Level);
+                    YP.write(Atom.a(@"foreach (bool l"));
+                    YP.write(Level);
+                    YP.write(Atom.a(@" in "));
+                    convertExpressionCSharp(Expression);
+                    YP.write(Atom.a(@") {"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListCSharp(Body, NextLevel);
+                        convertIndentationCSharp(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListCSharp(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+        }
+
+        public static void convertIndentationCSharp(object Level)
+        {
+            {
+                Variable N = new Variable();
+                foreach (bool l2 in YP.unify(N, YP.multiply(Level, 2)))
+                {
+                    repeatWrite(Atom.a(@" "), N);
+                    return;
+                }
+            }
+        }
+
+        public static void convertArgListCSharp(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                Variable Head = new Variable();
+                Variable Tail = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Head, Tail)))
+                {
+                    convertExpressionCSharp(Head);
+                    if (YP.termNotEqual(Tail, Atom.NIL))
+                    {
+                        YP.write(Atom.a(@", "));
+                        convertArgListCSharp(Tail);
+                        return;
+                        goto cutIf1;
+                    }
+                    convertArgListCSharp(Tail);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static void convertExpressionCSharp(object arg1)
+        {
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"arg", X)))
+                {
+                    YP.write(Atom.a(@"object "));
+                    YP.write(X);
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"call", Name, ArgList)))
+                {
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Obj = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList)))
+                {
+                    YP.write(Obj);
+                    YP.write(Atom.a(@"."));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"new", Name, ArgList)))
+                {
+                    YP.write(Atom.a(@"new "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"var", Name)))
+                {
+                    YP.write(Name);
+                    return;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"null")))
+                {
+                    YP.write(Atom.a(@"null"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"not", X)))
+                {
+                    YP.write(Atom.a(@"!("));
+                    convertExpressionCSharp(X);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                Variable Y = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"and", X, Y)))
+                {
+                    YP.write(Atom.a(@"("));
+                    convertExpressionCSharp(X);
+                    YP.write(Atom.a(@") && ("));
+                    convertExpressionCSharp(Y);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"objectArray", ArgList)))
+                {
+                    YP.write(Atom.a(@"new object[] {"));
+                    convertArgListCSharp(ArgList);
+                    YP.write(Atom.a(@"}"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                Variable Codes = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))
+                {
+                    if (YP.atom(X))
+                    {
+                        YP.write(Atom.a(@"@"""));
+                        foreach (bool l4 in YP.atom_codes(X, Codes))
+                        {
+                            convertStringCodesCSharp(Codes);
+                            YP.write(Atom.a(@""""));
+                            return;
+                        }
+                    }
+                }
+            }
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))
+                {
+                    YP.write(X);
+                    return;
+                }
+            }
+        }
+
+        public static void convertStringCodesCSharp(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                Variable Code = new Variable();
+                Variable RestCodes = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Code, RestCodes)))
+                {
+                    if (YP.termEqual(Code, 34))
+                    {
+                        YP.put_code(34);
+                        YP.put_code(Code);
+                        convertStringCodesCSharp(RestCodes);
+                        return;
+                        goto cutIf1;
+                    }
+                    YP.put_code(Code);
+                    convertStringCodesCSharp(RestCodes);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static void convertFunctionJavascript(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"getDeclaringClass")))
+                {
+                    YP.write(Atom.a(@"function getDeclaringClass() { return null; }"));
+                    YP.nl();
+                    return;
+                }
+            }
+            {
+                Variable x1 = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable Body = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor(@"function", new object[] { x1, Name, ArgList, Body })))
+                {
+                    YP.write(Atom.a(@"function "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@") {"));
+                    YP.nl();
+                    convertStatementListJavascript(Body, 1);
+                    YP.write(Atom.a(@"}"));
+                    YP.nl();
+                    YP.nl();
+                    return;
+                }
+            }
+        }
+
+        public static void convertStatementListJavascript(object arg1, object arg2)
+        {
+            {
+                object x1 = arg2;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Name = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", Name, Body), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@":"));
+                    YP.nl();
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"{"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListJavascript(Body, NextLevel);
+                        convertIndentationJavascript(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListJavascript(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                Variable _Type = new Variable();
+                Variable Name = new Variable();
+                Variable Expression = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"declare", _Type, Name, Expression), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"var "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = "));
+                    convertExpressionJavascript(Expression);
+                    YP.write(Atom.a(@";"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Name = new Variable();
+                Variable Expression = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"assign", Name, Expression), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = "));
+                    convertExpressionJavascript(Expression);
+                    YP.write(Atom.a(@";"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldtrue"), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"yield true;"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldfalse"), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"yield false;"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldbreak"), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"return;"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"return"), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"return;"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returntrue"), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"return true;"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returnfalse"), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"return false;"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Name = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"breakBlock", Name), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"break "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@";"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"call", Name, ArgList), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@");"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Obj = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Obj);
+                    YP.write(Atom.a(@"."));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@");"));
+                    YP.nl();
+                    convertStatementListJavascript(RestStatements, Level);
+                    return;
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"{"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListJavascript(Body, NextLevel);
+                        convertIndentationJavascript(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListJavascript(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Expression = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", Expression, Body), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"if ("));
+                    convertExpressionJavascript(Expression);
+                    YP.write(Atom.a(@") {"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListJavascript(Body, NextLevel);
+                        convertIndentationJavascript(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListJavascript(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                Variable Expression = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", Expression, Body), RestStatements)))
+                {
+                    convertIndentationJavascript(Level);
+                    YP.write(Atom.a(@"for each (var l"));
+                    YP.write(Level);
+                    YP.write(Atom.a(@" in "));
+                    convertExpressionJavascript(Expression);
+                    YP.write(Atom.a(@") {"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        convertStatementListJavascript(Body, NextLevel);
+                        convertIndentationJavascript(Level);
+                        YP.write(Atom.a(@"}"));
+                        YP.nl();
+                        convertStatementListJavascript(RestStatements, Level);
+                        return;
+                    }
+                }
+            }
+        }
+
+        public static void convertIndentationJavascript(object Level)
+        {
+            {
+                Variable N = new Variable();
+                foreach (bool l2 in YP.unify(N, YP.multiply(Level, 2)))
+                {
+                    repeatWrite(Atom.a(@" "), N);
+                    return;
+                }
+            }
+        }
+
+        public static void convertArgListJavascript(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                Variable Head = new Variable();
+                Variable Tail = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Head, Tail)))
+                {
+                    convertExpressionJavascript(Head);
+                    if (YP.termNotEqual(Tail, Atom.NIL))
+                    {
+                        YP.write(Atom.a(@", "));
+                        convertArgListJavascript(Tail);
+                        return;
+                        goto cutIf1;
+                    }
+                    convertArgListJavascript(Tail);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static void convertExpressionJavascript(object arg1)
+        {
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"arg", X)))
+                {
+                    YP.write(X);
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"call", Name, ArgList)))
+                {
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Obj = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList)))
+                {
+                    YP.write(Obj);
+                    YP.write(Atom.a(@"."));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"new", Name, ArgList)))
+                {
+                    YP.write(Atom.a(@"new "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"var", Name)))
+                {
+                    YP.write(Name);
+                    return;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"null")))
+                {
+                    YP.write(Atom.a(@"null"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"not", X)))
+                {
+                    YP.write(Atom.a(@"!("));
+                    convertExpressionJavascript(X);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                Variable Y = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"and", X, Y)))
+                {
+                    YP.write(Atom.a(@"("));
+                    convertExpressionJavascript(X);
+                    YP.write(Atom.a(@") && ("));
+                    convertExpressionJavascript(Y);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"objectArray", ArgList)))
+                {
+                    YP.write(Atom.a(@"["));
+                    convertArgListJavascript(ArgList);
+                    YP.write(Atom.a(@"]"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                Variable Codes = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))
+                {
+                    if (YP.atom(X))
+                    {
+                        YP.write(Atom.a(@""""));
+                        foreach (bool l4 in YP.atom_codes(X, Codes))
+                        {
+                            convertStringCodesJavascript(Codes);
+                            YP.write(Atom.a(@""""));
+                            return;
+                        }
+                    }
+                }
+            }
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))
+                {
+                    YP.write(X);
+                    return;
+                }
+            }
+        }
+
+        public static void convertStringCodesJavascript(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                Variable Code = new Variable();
+                Variable RestCodes = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Code, RestCodes)))
+                {
+                    if (YP.termEqual(Code, 34))
+                    {
+                        YP.put_code(92);
+                        YP.put_code(Code);
+                        convertStringCodesJavascript(RestCodes);
+                        return;
+                        goto cutIf1;
+                    }
+                    if (YP.termEqual(Code, 92))
+                    {
+                        YP.put_code(92);
+                        YP.put_code(Code);
+                        convertStringCodesJavascript(RestCodes);
+                        return;
+                        goto cutIf1;
+                    }
+                    YP.put_code(Code);
+                    convertStringCodesJavascript(RestCodes);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static void convertFunctionPython(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"getDeclaringClass")))
+                {
+                    YP.write(Atom.a(@"def getDeclaringClass():"));
+                    YP.nl();
+                    YP.write(Atom.a(@"  return None"));
+                    YP.nl();
+                    YP.nl();
+                    return;
+                }
+            }
+            {
+                Variable x1 = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable Body = new Variable();
+                Variable Level = new Variable();
+                Variable HasBreakableBlock = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor(@"function", new object[] { x1, Name, ArgList, Body })))
+                {
+                    YP.write(Atom.a(@"def "));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@"):"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(Level, 1))
+                    {
+                        if (hasBreakableBlockPython(Body))
+                        {
+                            foreach (bool l5 in YP.unify(HasBreakableBlock, 1))
+                            {
+                                if (YP.termEqual(HasBreakableBlock, 1))
+                                {
+                                    convertIndentationPython(Level);
+                                    YP.write(Atom.a(@"doBreak = False"));
+                                    YP.nl();
+                                    foreach (bool l7 in convertStatementListPython(Body, Level, HasBreakableBlock))
+                                    {
+                                        YP.nl();
+                                        return;
+                                    }
+                                    goto cutIf2;
+                                }
+                                foreach (bool l6 in convertStatementListPython(Body, Level, HasBreakableBlock))
+                                {
+                                    YP.nl();
+                                    return;
+                                }
+                            cutIf2:
+                                { }
+                            }
+                            goto cutIf1;
+                        }
+                        foreach (bool l4 in YP.unify(HasBreakableBlock, 0))
+                        {
+                            if (YP.termEqual(HasBreakableBlock, 1))
+                            {
+                                convertIndentationPython(Level);
+                                YP.write(Atom.a(@"doBreak = False"));
+                                YP.nl();
+                                foreach (bool l6 in convertStatementListPython(Body, Level, HasBreakableBlock))
+                                {
+                                    YP.nl();
+                                    return;
+                                }
+                                goto cutIf3;
+                            }
+                            foreach (bool l5 in convertStatementListPython(Body, Level, HasBreakableBlock))
+                            {
+                                YP.nl();
+                                return;
+                            }
+                        cutIf3:
+                            { }
+                        }
+                    cutIf1:
+                        { }
+                    }
+                }
+            }
+        }
+
+        public static bool hasBreakableBlockPython(object arg1)
+        {
+            {
+                Variable _Name = new Variable();
+                Variable _Body = new Variable();
+                Variable _RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", _Name, _Body), _RestStatements)))
+                {
+                    return true;
+                }
+            }
+            {
+                Variable Body = new Variable();
+                Variable _RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), _RestStatements)))
+                {
+                    if (hasBreakableBlockPython(Body))
+                    {
+                        return true;
+                    }
+                }
+            }
+            {
+                Variable _Expression = new Variable();
+                Variable Body = new Variable();
+                Variable _RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", _Expression, Body), _RestStatements)))
+                {
+                    if (hasBreakableBlockPython(Body))
+                    {
+                        return true;
+                    }
+                }
+            }
+            {
+                Variable _Expression = new Variable();
+                Variable Body = new Variable();
+                Variable _RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", _Expression, Body), _RestStatements)))
+                {
+                    if (hasBreakableBlockPython(Body))
+                    {
+                        return true;
+                    }
+                }
+            }
+            {
+                Variable x1 = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(x1, RestStatements)))
+                {
+                    if (hasBreakableBlockPython(RestStatements))
+                    {
+                        return true;
+                    }
+                }
+            }
+            return false;
+        }
+
+        public static IEnumerable<bool> convertStatementListPython(object arg1, object arg2, object arg3)
+        {
+            {
+                object x1 = arg2;
+                object x2 = arg3;
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    yield return true;
+                    yield break;
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Name = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"breakableBlock", Name, Body), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = False"));
+                    YP.nl();
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"for _ in [1]:"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))
+                        {
+                            convertIndentationPython(Level);
+                            YP.write(Atom.a(@"if "));
+                            YP.write(Name);
+                            YP.write(Atom.a(@":"));
+                            YP.nl();
+                            convertIndentationPython(NextLevel);
+                            YP.write(Atom.a(@"doBreak = False"));
+                            YP.nl();
+                            convertIndentationPython(Level);
+                            YP.write(Atom.a(@"if doBreak:"));
+                            YP.nl();
+                            convertIndentationPython(NextLevel);
+                            YP.write(Atom.a(@"break"));
+                            YP.nl();
+                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable _Type = new Variable();
+                Variable Name = new Variable();
+                Variable Expression = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"declare", _Type, Name, Expression), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = "));
+                    convertExpressionPython(Expression);
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Name = new Variable();
+                Variable Expression = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"assign", Name, Expression), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = "));
+                    convertExpressionPython(Expression);
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldtrue"), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"yield True"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldfalse"), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"yield False"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"yieldbreak"), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"return"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"return"), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"return"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returntrue"), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"return True"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Atom.a(@"returnfalse"), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"return False"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Name = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"breakBlock", Name), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@" = True"));
+                    YP.nl();
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"doBreak = True"));
+                    YP.nl();
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"break"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"call", Name, ArgList), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@")"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Obj = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                Variable RestStatements = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Obj);
+                    YP.write(Atom.a(@"."));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@")"));
+                    YP.nl();
+                    foreach (bool l3 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                    {
+                        yield return true;
+                        yield break;
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor1(@"blockScope", Body), RestStatements)))
+                {
+                    if (YP.termEqual(HasBreakableBlock, 1))
+                    {
+                        convertIndentationPython(Level);
+                        YP.write(Atom.a(@"for _ in [1]:"));
+                        YP.nl();
+                        foreach (bool l4 in YP.unify(NextLevel, YP.add(Level, 1)))
+                        {
+                            foreach (bool l5 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))
+                            {
+                                if (YP.termEqual(HasBreakableBlock, 1))
+                                {
+                                    if (YP.greaterThan(Level, 1))
+                                    {
+                                        convertIndentationPython(Level);
+                                        YP.write(Atom.a(@"if doBreak:"));
+                                        YP.nl();
+                                        convertIndentationPython(NextLevel);
+                                        YP.write(Atom.a(@"break"));
+                                        YP.nl();
+                                        foreach (bool l8 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                                        {
+                                            yield return true;
+                                            yield break;
+                                        }
+                                        goto cutIf3;
+                                    }
+                                    foreach (bool l7 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                                    {
+                                        yield return true;
+                                        yield break;
+                                    }
+                                cutIf3:
+                                    goto cutIf2;
+                                }
+                                foreach (bool l6 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            cutIf2:
+                                { }
+                            }
+                        }
+                        goto cutIf1;
+                    }
+                    foreach (bool l3 in YP.unify(NextLevel, Level))
+                    {
+                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))
+                        {
+                            if (YP.termEqual(HasBreakableBlock, 1))
+                            {
+                                if (YP.greaterThan(Level, 1))
+                                {
+                                    convertIndentationPython(Level);
+                                    YP.write(Atom.a(@"if doBreak:"));
+                                    YP.nl();
+                                    convertIndentationPython(NextLevel);
+                                    YP.write(Atom.a(@"break"));
+                                    YP.nl();
+                                    foreach (bool l7 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                                    {
+                                        yield return true;
+                                        yield break;
+                                    }
+                                    goto cutIf5;
+                                }
+                                foreach (bool l6 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                            cutIf5:
+                                goto cutIf4;
+                            }
+                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        cutIf4:
+                            { }
+                        }
+                    }
+                cutIf1:
+                    { }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Expression = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"if", Expression, Body), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"if "));
+                    convertExpressionPython(Expression);
+                    YP.write(Atom.a(@":"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))
+                        {
+                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        }
+                    }
+                }
+            }
+            {
+                object Level = arg2;
+                object HasBreakableBlock = arg3;
+                Variable Expression = new Variable();
+                Variable Body = new Variable();
+                Variable RestStatements = new Variable();
+                Variable NextLevel = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(new Functor2(@"foreach", Expression, Body), RestStatements)))
+                {
+                    convertIndentationPython(Level);
+                    YP.write(Atom.a(@"for l"));
+                    YP.write(Level);
+                    YP.write(Atom.a(@" in "));
+                    convertExpressionPython(Expression);
+                    YP.write(Atom.a(@":"));
+                    YP.nl();
+                    foreach (bool l3 in YP.unify(NextLevel, YP.add(Level, 1)))
+                    {
+                        foreach (bool l4 in convertStatementListPython(Body, NextLevel, HasBreakableBlock))
+                        {
+                            if (YP.termEqual(HasBreakableBlock, 1))
+                            {
+                                convertIndentationPython(Level);
+                                YP.write(Atom.a(@"if doBreak:"));
+                                YP.nl();
+                                convertIndentationPython(NextLevel);
+                                YP.write(Atom.a(@"break"));
+                                YP.nl();
+                                foreach (bool l6 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                                {
+                                    yield return true;
+                                    yield break;
+                                }
+                                goto cutIf6;
+                            }
+                            foreach (bool l5 in convertStatementListPython(RestStatements, Level, HasBreakableBlock))
+                            {
+                                yield return true;
+                                yield break;
+                            }
+                        cutIf6:
+                            { }
+                        }
+                    }
+                }
+            }
+        }
+
+        public static void convertIndentationPython(object Level)
+        {
+            {
+                Variable N = new Variable();
+                foreach (bool l2 in YP.unify(N, YP.multiply(Level, 2)))
+                {
+                    repeatWrite(Atom.a(@" "), N);
+                    return;
+                }
+            }
+        }
+
+        public static void convertArgListPython(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                Variable Head = new Variable();
+                Variable Tail = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Head, Tail)))
+                {
+                    convertExpressionPython(Head);
+                    if (YP.termNotEqual(Tail, Atom.NIL))
+                    {
+                        YP.write(Atom.a(@", "));
+                        convertArgListPython(Tail);
+                        return;
+                        goto cutIf1;
+                    }
+                    convertArgListPython(Tail);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static void convertExpressionPython(object arg1)
+        {
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"arg", X)))
+                {
+                    YP.write(X);
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"call", Name, ArgList)))
+                {
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Obj = new Variable();
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor3(@"callMember", new Functor1(@"var", Obj), Name, ArgList)))
+                {
+                    YP.write(Obj);
+                    YP.write(Atom.a(@"."));
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"new", Name, ArgList)))
+                {
+                    YP.write(Name);
+                    YP.write(Atom.a(@"("));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable Name = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"var", Name)))
+                {
+                    YP.write(Name);
+                    return;
+                }
+            }
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.a(@"null")))
+                {
+                    YP.write(Atom.a(@"None"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"not", X)))
+                {
+                    YP.write(Atom.a(@"not ("));
+                    convertExpressionPython(X);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                Variable Y = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor2(@"and", X, Y)))
+                {
+                    YP.write(Atom.a(@"("));
+                    convertExpressionPython(X);
+                    YP.write(Atom.a(@") and ("));
+                    convertExpressionPython(Y);
+                    YP.write(Atom.a(@")"));
+                    return;
+                }
+            }
+            {
+                Variable ArgList = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"objectArray", ArgList)))
+                {
+                    YP.write(Atom.a(@"["));
+                    convertArgListPython(ArgList);
+                    YP.write(Atom.a(@"]"));
+                    return;
+                }
+            }
+            {
+                Variable X = new Variable();
+                Variable Codes = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))
+                {
+                    if (YP.atom(X))
+                    {
+                        YP.write(Atom.a(@""""));
+                        foreach (bool l4 in YP.atom_codes(X, Codes))
+                        {
+                            convertStringCodesPython(Codes);
+                            YP.write(Atom.a(@""""));
+                            return;
+                        }
+                    }
+                }
+            }
+            {
+                Variable X = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new Functor1(@"object", X)))
+                {
+                    YP.write(X);
+                    return;
+                }
+            }
+        }
+
+        public static void convertStringCodesPython(object arg1)
+        {
+            {
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    return;
+                }
+            }
+            {
+                Variable Code = new Variable();
+                Variable RestCodes = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(Code, RestCodes)))
+                {
+                    if (YP.termEqual(Code, 34))
+                    {
+                        YP.put_code(92);
+                        YP.put_code(Code);
+                        convertStringCodesPython(RestCodes);
+                        return;
+                        goto cutIf1;
+                    }
+                    if (YP.termEqual(Code, 92))
+                    {
+                        YP.put_code(92);
+                        YP.put_code(Code);
+                        convertStringCodesPython(RestCodes);
+                        return;
+                        goto cutIf1;
+                    }
+                    YP.put_code(Code);
+                    convertStringCodesPython(RestCodes);
+                    return;
+                cutIf1:
+                    { }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> member(object X, object arg2)
+        {
+            {
+                Variable x2 = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(X, x2)))
+                {
+                    yield return false;
+                }
+            }
+            {
+                Variable x2 = new Variable();
+                Variable Rest = new Variable();
+                foreach (bool l2 in YP.unify(arg2, new ListPair(x2, Rest)))
+                {
+                    foreach (bool l3 in member(X, Rest))
+                    {
+                        yield return false;
+                    }
+                }
+            }
+        }
+
+        public static IEnumerable<bool> append(object arg1, object arg2, object arg3)
+        {
+            {
+                Variable List = new Variable();
+                foreach (bool l2 in YP.unify(arg1, Atom.NIL))
+                {
+                    foreach (bool l3 in YP.unify(arg2, List))
+                    {
+                        foreach (bool l4 in YP.unify(arg3, List))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+            {
+                object List2 = arg2;
+                Variable X = new Variable();
+                Variable List1 = new Variable();
+                Variable List12 = new Variable();
+                foreach (bool l2 in YP.unify(arg1, new ListPair(X, List1)))
+                {
+                    foreach (bool l3 in YP.unify(arg3, new ListPair(X, List12)))
+                    {
+                        foreach (bool l4 in append(List1, List2, List12))
+                        {
+                            yield return false;
+                        }
+                    }
+                }
+            }
+        }
+
+    }
+}